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MODULE SCHEDULER(2TITLE A 4 geveduler’ 
jDENT = 'y04-001' 
= 
BEGIN 


! 
Lee ARERR AREA AERA RER AAA A ARATE AAA E AETHER EEE 


!t COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

i® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

'* ALL RIGHTS RESERVED. 

!* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN CORDANCE H THE TERMS OF SUCH LICENSE AND WITH THE 

:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 

!* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 

? Faansrekatee NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:@ Seeokat ihn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
'* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


@aeeeneeneneneaeenenennenennannene 


SRR RE REAR AAAER RARE ERA RAAT AAA AAA AAA ARATE AAAS 
' 


'e4 


i FACILITY: 
: Job controller. 


ABSTRACT: 
This module contains the job scheduling routines. 


ENVIRONMENT: 
VAX/VMS user and kernel mode. 


AUTHOR: M. Jack, CREATION DATE: 16-Feb-1982 
MODIFIED BY: 


V04-001 JAK0233 JA Krycke 10-Sep-1984 ; 
In FIND_PENDING_JOBS fix bug that prevented the job header 
record from being rewritten to disk when scheduling pending 
jobs from a generic batch queue to various execution queues. 


v03-011 JAKO231 J_A Krycka ag A te 
In FIND_PENDING JOBS protect against failure to place job in 
execution by START_EXECUTOR JOB (e.g., SCREPRC service failure). 
A failure of this mature will result in release of the current 
job record to the free List, so FIND_PENDING_JOBS should not 
try to rewrite it. 


1984 00:25:09 AX=11 Bliss-32 V4.0-74 
1982 99:8 714 JOBCTL.SRCJSCHEDULER 
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SCHEDULER Job scheduler 1b-se 1984 AX-11 Bliss-32 V4.0 Page 2. SCH 

yoecobt 1e-8ep-1984 99: 3; 9? JOBCTL.SRC SCHEDULER. 5 2:2 . (1) v4 
3 38 H 1! v03-010 KPLOQOS P Lieberwirth, sceptibie to ; 
; 0 1! Routine 4h PENDING JOBS is su ace tible to a corrupted : 
3 60 be 1! PENDING _B TCA LIST of PENDING_PRINT_LIST. Protect against ; 
: o bes : that type ae Torruption. ; 
: 6 663 1: v03-009 KPLO003 Ligheryireh. 31-Jul-1984 : 
g 64 0064 1! Add omitted "’."’ Se Vv : 
fa bose 1 i v03-008 KPLO002 P Lieberwirth, 
3 : - eberwir 3 
; 44 0067 ' } Extend protection described in vi3- 38) to to "poutine AF TER_NONAST. : 
: 69 069 ii v03-007 KPL0001 P Lieberwirth, 99-Jul-1984 : 
3 0 0 1! Protect routine ENGUEUE _J0B against corrupt SJH. A corrupt : 
a Le 071 1! SJH is generally a record that has been deallocatd to the : 
Rae Bar¢ 1! free List but still appears on the SMQ's current_list. Changes : 
eat, 0075 1! being made at this time in other modules should feduce the : 
3 a Bere : frequency of this type of corruption. : 
: 7% 0076 1: v03-006 MLJ0118 Martin L. Jack, 23-Aug-1983 12:41 : 
; a th ; Change field names. : 
: 79 0079 1: vO3-005 ML0115 artin L. Jack, 30-Jul-1983 15:03 | : 
: +s Boge ; Changes for job contretter baselevel. | : 
? 0082 1 03-004 MLU0114 _. Martin L. Jack, 23-Jun-1983 5:03 | ; 
: Hi bone : } Changes for job controller baselevel. : 
: 85 0085 1! v03-003 MLJ0113 Martin L. Jack, 26-May-1983 21:08 : 
; Hy Boee ! Changes for job controller baselevel. 2 f 
: 88 0088 1: v03-002 MLy0112 Martin L. Jack, 29-Apr-1983 3:09 ; 
; 89 4.94 : } Changes for joh at ee TE baselevel. | 
: 91 0091 1: v03-001 MLJ0109 Martin L. Jack, 14-Apr-1983 12:49 
j ¥ 0092 1! Changes for job controller baselevel. 
> oe 0095 1! 
; 94 0094 1 !#« 


7 
ee ER Job scheduler 16-Sep o- 138% 9 ‘6 :09 AX-11 Bliss-32 V4.0 
1 14-Sep-1984 14 


JOBCTL.SRC SCHEDULER. 3 2:2 


3 38 90 5 } REQUIRE ‘SRC$:JOBCTLDEF’; 

3 a8 11 8 1 

; 1138 1 FORWARD ROUT INE 

; 100 1139 (1 R_NONAST: NOVALUE, 
3 19] 1140 1 AST: NOVALUE, 
, % g 1141 1 REQUEDE STARTING JOBS: NOVALUE, 
; 10 1143 1 XECUTOR_ SCHEDULING G POLICY, 

3 104 1143 1 XECUTOR-ACCEPTS JOB 

: 105 1144 1 FIND -AVATLABLE EXECUTOR: L_OUTPUT_1, 
: 1 1145 1 F IND- PENDING Obs: NOVALUE E, 
: 19 1146 1 JOB SCHEDULING. POLICY, 

s 108 1147 «1 ENQOEUE_J L_OUTPUT_2 NOVALUE; 
NE 

: 111 1150 1 EXTERNAL ROUTINE 

3 1g 1151 1 LOCK -RUEUE FILE: NOVALUE, 
; 11 11 ¢ 1 READ" RECORD 

: 114 11 1 RELEASE_RECORD: NOVALUE, 
: 115 1154 1 REWRIT ORD: NOVALUE, 
: 11g 1155 1 SCAN_INCOMPLETE_SERVICES NOVALUE, 
: 11 11 § 1 SCHED NAST: NOVALUE, 
; #118 11 1 START_EXECUTOR_JOB NOVALUE, 
: 119 1158 1 UNLOCR_QUEUE_FILE: NOVALUE, 
3: 120 1159 1 UPDATE_GETQUT_DATA: NOVALUE; 
2) re 

: 1 § 1162 1 BUILTIN 

> 124 1163 1 TESTBITSC; 


po 


Bliss-32 V4.0 Page 4 


1 $8 -74 
14-Sep-1984 JOBCTL.SRCJSCHEDULER.B52;2 (3) 


7 
SCHEDULER Job scheduler ib-se -1984 00:25:09 AX-1 
vouroot On 19be 5:97:44 
: ROUTINE AFTER_NONAST: NOVALUE= 
le¢ 
FUNCTIONAL DESCRIPTION: 
This routine is scheduled to execute by the completion AST routine for 
the timer on the timed job queue. It requeves all jobs whose expiration 
time is earlier than or equal to the current time and sets a new timer. 


INPUT PARAMETERS: 
NONE 


MEW OOONO 


! IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
NONE 
SIDE EFFECTS: 
NONE 


ROO NORM OOO OUR UNIO De0 oa 


BEGIN 
IF .QUEUE_FABLFABSW_IFI] NEQ 0 
THEN 


PPP APASIVIS EE EE EE EE EE 


ee ed a dd nd dd od od od od 


PIPOAPSRONORY 2 2 
eS Se Be SS SRS eo aah hh NNN NII NNN SNES OOO 


me a ek ed a ad | 5 ed = td = = = = = 


SNN NAA AAAAAAO 
COOWNO UNE WO OOWNOU EWN" OOOnNOu 


PROPIPOPOPPOMOPOPOMPoNofonoeny 


et tt 1 OOOO 


SQH: REF BBLOCK, ! Pointer to SQH 
SMQ_N, ! Record number of SMQ 
SMQ: REF BBLOCK, ! Pointer to §S 

SJH_N, ' Record number of SJH 
SJH: REF BBLOCK, ' Pointer to SJH 
STATUS; ! Status return 


Get the current time. 
SGETTIM(TIMADR=CUR_TIME); 


: Lock the queue file. 
LOCK_QUEUE_FILE(); 

' Requeve all jobs in the timer queue 
: than or equal to the current time. 


SQH = READ_RECORD(SQHS$K_RECNO); 
WHILE .SQHTSOHSL_TIMER_CIST] NEQ 0 DO 


whose expiration times are earlier 


CHE OULER Job scheduler 
\V04-001\ 


COMMON,NOEXE, OVR,2 


ge, 
SCHEDULER Job scheduler 16-Sep-1984 00:25:09 AX-11 Bliss-32 v4 
voecbot 18-88071 382 90:43:99 , JOBCTL. SRCISCHEDUL 
>: 183 1221 4 BEGIN 
c- '3 1 3 G SJH_= READ _RECORD(SJH_N = ,SQHCSQHSL_TIMER 43812); 
> 185 1 5 IF TIME_GEGU(CUR_TIME, SJHCSJHSQ_AFTER_TIME)) 
. ¥ 1224 4 THEN 
2 155¢ SPDATE GETOUI_DATA(.SJH_N, .SJH) 
: 189 1 $ SOnC SOREL TIMER Li i3 =~ gyi symbL LINK); 
: 4 1 3 IF .SJHCSYM : LINK] EQL 6 THEN SQHESQHSL_TIMER_LIST_END] = 0; 
> (191 1 SMQ_N = .SJHCSJHSL_QUEUVE_LINK); 
; 19¢ 1230 IF ~SMQ_N NEG 0 
; 19 1231 THEN 
3 138 : ¢ Queue pointer is OK. 
: 196 1234 6 BEGIN 
; 197 1235 6 SMQ = READ _RECORD(.SMQ_N); 
; 198 1236 6 SMOCSMQSW_ TIMER JOB_COONT) = .SMQCSMQ$W_TIMER_JOB_COUNT) - 1; 
; 199 1237 6 ENQUEVE_J08(.SJA N, .SJH); 
; 200 1238 6 REWRITE-RECORD(.SMQ_N); 
3 01 1239 6 REWRITE_RECORD(.SJH_N); 
; oe 1240 6 END 
FH 0 1241 5 ELSE 
; 2046 1se¢ 5 ! Queue pointer bad, just release SJH. Next cold or warm start 
: 05 12463 «5 ' will fix it. 
3 5] 1244 5 ' 
3 0 1245 5 RELEASE_RECORD(.SJH_N); 
; 208 1246 § 
; 209 1247 & ELSE 
: 210 1248 5 BEGIN 
: sii 1563 5 ; 
3 \¢ 1250 5 ! Set a timer on the first remaining job. 
3 @l 1251 5§ ! 
; 216 P 1S3¢ 5 STATUS = S$SETIMR( 
: 215 P 125 5 DAYTIM=SJHCSJH$Q_AFTER_TIME), 
; $18 P1254 5§ ASTADR=AF TER_AST 
> 217 1255 5 REQIDT=JBC$K—AFTER_IDT); 
: 218 1256 5 IF NOT .STATUS 
: th 1257 5 HEN 
; 20 1258 3 SIGNAL (JBC$_SETIMR OR STS$K_ERROR, 0, .STATUS); 
3 232 1360 5 
: 1261 5§ EXITLOOP; 
; $s¢ 1566 4 END; 
$ 5 126 END; 
: 36 1363 REWRITE_RECORD(SQHSK_RECNO); 
; 228 1266 
: $3 1267 ' Unlock the queue file. 
5 0 1268 : 
3 31 1269 UNLOCK _QUEUE_FILE(); 
3 3 1270 END; 
: 1271 1 END; 
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ROR ges iSsectage 98:85:00 YASS, Bhgctze 4s 85748 reer oS 


00000 DIAG. dee £ geAse: 
00000 DIAG. TRACES 


L 96 
00060 DIAG_COUNT: | 
000CO DIAG_FLAGS: ‘ 
000C4 WORK -AREA os 
QOOFO SNDJBC -COMN 132 
00174 GETQUI =O: 40 | 
0019C SNDACC -cOUNT 28 | 
00188 SNDSMB_ gv . 


00200 DIAG _STORAGE END: 


00500 Ft LAGS: .BLKB 
0204 IMAGE_DUMP_STSFL 


-BCKB 
00208 THIS_SYSiD: 
BLKB 


$0310 cur_TIMED 


00218 HOURLY_TIME: | 
00220 HOURLY_PARAMS : | 
00234 SYMBIONT_ COUNT: 
00238 QUEUE REFERENCE COUNT: | 
0023¢ MBX ae aes 


32 @e@ @ NS Sees 


-BLKB 4 

a094e a max E40: FREE QUEUES: 

00270 NONAST =wORK K QUEUE : 
00278 BCB_FREE Uist: 
0027¢ BCB_ACTIVE LIST: 
00280 GOL_FREE“LIST: 
00284 GaL_acTIVE List: 
00288 OPEN_cETOUI LIST: 


4 
4 
4 
L 4 
0028C PROCESS_DATA_LIST: 

-BLKB 4 


ssppnstnteinaalinasnnmnanementcsirioneseemen 
ah a heen unanname Eset 00:85:09 YARSYT OLisg= Sz 4s O57K2, taal 
00290 SYMBIONT CONTROL 
00294 SPARE AREA: 
002A0 REMOTE wi QUESt. une: 
OOZA8 QUEUE_FILE LKsB: 
00280 QUEUE _LOtK LKSB: 
-BCKB 


eo 


P rd 


$030 fac. "saolt te 


LKB 4 
002C4 JBC PRIVILEGES: 
002CC JBC_QUOTAS: 
-BLKB $6 
00 oF -BLKB | 
00 10 JBC_UIC:.BLKB 4 
0314 QUEUE_FAB: 
00364 QUEUE _RAB: s | 
003A8 QUEUE _NAM: - 
00408 QUEUE_xAB: - 
00460 QUEUE _RSA: | 
-BLKB 255 | 
0055F -BLKB 
00560 QUEUE _ALQ: 
00564 QUEUE _MBF : 
-BLKB 1 | 
0565 -—BLKB 3 
0568 ACCOUNTING FABS: | 
00570 ACCOUNTING RABS: | 
00578 ACCOUNT_FAB A: “ 
005C8 ACCOUNT_RAB A: a 
0060C ACCOUNT_NAM A: a 


0066C ACCOUNT_RSA A: 
-BLRB 


MN 
uM 
“ 


007 68 -BLKB | 
076C ACCOUNT_FAB B: 
BLRB 


‘ 80 
007BC ACCOUNT_RAB B: 

-BLRB 68 
00800 ACCOUNT_NAM B: 

BL 96 


-BLRB 
00860 ACCOUNT_RSA B: 

-BLRB 255 
0095F “BLKB 


ee ee _ 


WO et 1 setage 2:87:22 Ebacteosne Sschepucen.082;2 a 


00960 DIAG_FAB: 


-BLKB 80 
00980 DIAG_RAB: - 
009F4 MBX_CHAN: 
-BLKB 4 


009F8 MBX_10SB: ee 
OOA00 MBX_BUFFER: 
00E00 VALUE _STORAGE E BASE! 
00E00 ITEM, PRESENT: 
00E20 VALUE _GETOU BASE. 
00E20 VALUE _AciQUNT ING MESSAGE : 
0026 VALUE ACCOUNTING, TYPES: 
OOE2A VALUE_AFTER TIME: 

00€ 32 VALUE ALIGNMENT PAGES: 
00E33 VALUE BASE “PRIORITY: 

00E 34 VALUE BATCH INPUT : 
O0E3A VALUE BATCH OUTPUT: 
OOE44 VALUE BUFFER. COUNT: 
00E45 VALUE CHARACTERISTIC NAME : 
OOE4B VALUE_ CHARACTERISTIC NUMBER: 
00E4C VALUE CHARACTERISTICS: 

OOESC VALUE_CHECKPOINT_DATA: 

00E62 VALUE_CLi: a 
00E68 VALUE_CPU DEFAULT 
OOE6C VALUE_CPU LIMIT: 
00E70 VALUE “DESTINATION. QUEUE : 
00E78 VALUE -oeice NAME : 

OOE7E VALUE ENTRY NUMBER: 

00E82 VALUE “enipy Y RUMBER OUTPUT: 
OOE8C VALUE -ExiEND QUANTITY: 
OOESE VALUE FILES COPIES: 


32 
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Job scheduler 


rb-seo-t98e 0:26:07 yanet BLing=82 v6.02762 


OOE8F VALUE “rien E IDENT [F 1cATION: 
00EB3 VALUE rlie “SETUP MODULES: 
00€89 VALUE FILE SPECIFICATION: 
OOEBF VALUE_FIRST PAGE: 
OOEC3 VALUE Foi DEScR|PTION: 
OOEC9 VALUE_ FORK LENGTH: 
OOECA VALUE FORA MARGIN. BOTTOM: 
O0ECB VALUE FORM MARGIN LEFT: 
OOECD VALUE FORM MARGIN_RIGHT 
OOECF VALUE. FORR MARGIN, TOP: 
O0EDO VALUE FORK NAME 
O0ED6 VALUE FORA NUMBER : 
QOEDA VALUE_FORM: 
OOEE2 VALUE _FORM-SETUP 
OOEE8 VALUE om: stock: 
OOEEE VALUE_FORM WIDTH: 
OOEFO VALUE GENERIC TARGET 
01204 VALUE _J08 COPIES: 
01205 VALUE_JOB LIMIT: 

-BLKB 1 
01206 VALUE_JOB NAME 
0120¢ VALUE_JOB RESET MODULES: 
012E2 VALUE_JOB SIZE. MAXIMUM: 
012E6 VALUE_JOB SIZE. MINIMUM: 
O12EA VALUE_JOB STATUS QutPur: 
012F4 VALUE Last PAGE 
012F8 VALUE LIBRARY SPECIFICATION: 
O12FE VALUE LOG QUEUE : 
01306 VALUE LOG, SPECIF J CATION: 


MODULES: 


NO OL FDO aZw2VF—2 TORS o 


sca 


Job scheduler 


0130C 
01312 
01318 
0131¢ 
01322 
01328 
0132E 
01334 
0133A 
01340 
01346 
0134C 
01352 
01353 
01359 
01350 
01363 
01369 
0136D 
0136€ 
01370 
01374 
Q137A 
01384 
0138E 
01394 
0139A 
0139C 
0139E 


i 


seoct9Bt 00:95:09 JOBCTL SREISCAEDULER B92; 2 
VALUE _NOTE : 

VALUE -oP ERATOR. RE -REQUEST: 

VALUE Ovi UIC: 

VALUE _PAGE SETUP MODULES: 

Me Peo 
VALUE _PARAMETER_ 
VALUE atten 
VALUE _PARARETER. 
VALUE PARAMETER. 
VALUE niin 
VALUE _PARARE TER. 
VALUE PARAMETER 
VALUE coir © 
VALUE PROCESSOR: 
VALUE -PROTECTION: 
VALUE -2uEUE: 
VALUE_QUEUE FILE SPECIFICATION: 
VALUE_RECAT IVE PAGE: 

VALUE RESERVED. INPUT. 1: 

VALUE _RESERVED_INPUT_2: 

VALUE RESERVED, 1NPUT_3: 

VALUE RESERVED. INPUT_4: 

VALUE RESERVED_OUTPUT 1: 

VALUE RESERVED. TPUT_2: 

VALUE SEARCH STRING: 

VALUE SCSNODE NAME : 

VALUE _WSDEFAULT: 
VALUE _WSEXTENT: 
VALUE_WSQUOTA: 


rn oD Oo > NOOO OOO NO EO WOOO = 


2 
2 


2 
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ROR et re VESepct9es QO:Gh:02  WAMst She Baeble Pa"S¥a,2 toc 


-BLKB 2 
013A0 VALUE STORAGE _END: 
-BLKB” 0 


-CLOSEOUT= 


eecececccO Nw 


j 
sf ike | 
RELEASE. RECORD 
ECORDe SCAN INCOMPLETE_SERVICES 


. QUEU 
-EXTRN UPDATE-GETQU 
-PSECT CODE,NOWRT,2 


OFFC 00000 AFTER_NONAST: 
. WORD R45 .R6.R7.RB-RI-RIO,R11 


sEXTRN SYSSGETTIM, UE TSSSETIMR 
wo Save R2,R3, : 
59 000000006 EF 9E 00002 MOVAB READ_RECORD ; 
58 00000000' EF 4 90009 MOVAB CUR TIME, RB ; 
0106 ¢8 B85 00010 TSTW  QUEDE_FAB+2 + 1194 
01 12 90014 BNEQ 1$ ; 
04 00016 RET ; 
58 DD 00017 1$ PUSHL R8 : 1208 
000000006 09 01 FB 00019 CALLS #1, SYSSGETTIM ; 
000000006 ‘EF 00 FB 60020 CALLS #0, LOCK_QUEUE_FILE + 1213 
01 DD 900 7 PUSHL #1 : 1219 
69 01 FB 00029 CALLS #1, READ RECORD ; 
54 50 D0 0002¢ MOVL RO. SQH ; 
68 Ad DS O002F 28 TSTL 104(S5QH) : 1220 
03 12 00032 BNEG 3$ : 
0096 31 000 BRW 8$ ; 
55 68 Ad DO 00037 3s MOVL  104(SQH), SJH_N + 1222 
55 0D 000 PUSHL SJH_N : 
9 gi FB 0003D CALLS #1, READ _RECORD ; 
< 0 DO 0004 MOVL RO, SJH : 
009c =C 04 Ag pt 6 4 CMPL UR. TIME+4, 156(SJH) > 1223 
9 A 0004 BGTRU 4 ; 
6 12 6 48 NEQ 7$ ; 
0098 2 68 D O4p CMPL CUR_TIME, 152(SJH) ; 
4f iF 00 BLSSU  7$ ; 
3 DD 00054 4$ PUSHL SJH + 1226 
DD 000 6 PUSHL SiN ; 
000000006 EF 02 F 09 CALLS #2, UPDATE_GETQUI_DATA ; 
68 Ad 6 D SF MOVL (SJH), 104TSQH) ; 1227 
1 63 BNEG 5$ > 1228 
6¢ AL D4 CLAL 198(SaH) ; 
0134 C2 D6 68 5$ MOVL  308(SJH), SMQ_N + 1229 
é 13 00060 BEQL 6$ > 1230 
6 DD 0006F PUSHL SMQ_N > 1235 


“7 
SCHEDULER Job scheduler Sep-1984 00:25:09 AX-11 Bliss-32 V4.0-74 Page 12. 
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$9 Qi F 71 CALLS #1, READ_RECORD 
D 7 MOVL RO. SMQ 
010¢ B 7 DECW 268(5Ma) 1236 
DD 00078 PUSHL SIH 1237 | 
DD 0007D PUSHL SJH 
0000v CF : FB OF CALLS # ~ENOUEUE _J0B 
DD PUSHL  SMO_N 1238 
000000006 ‘EF 01 FB 000 CALLS #1, REWRITE_RECORD 
5 DD 0008 PUSHL SJH_N 1239 
000000006 EF o4 FB OB CALLS a. REWRITE_RECORD al 
5 DD 098 6$: PUSHL SJH_N 1245 
LL : f 
000000006 EF i O9A CAL § a “RELEASE _RECORD 
1 DD OA} 7$: PUSHL #1 
9000v CF 9F OOOA PUSHAB AFTER 
009 Ce F 000A9 PUSHAB 152(SJ 
E D4 OO0AD CLRL = = (SP) 
000000006 99 g4 F OOAE CALLS #4, SYSS$SE 
5 : D Bs MOVL RO, STATUS 
11 3 £8 0008 LBS STATUS, 8$ 1256 
7 DD 000BC PUSHL STATUS 125 
7E D4 O0BE CLRL.  =(SP) 
0004845A 8F DD 000C PUSHL #296026 
000000006 00 03 FB 000C6 CALLS #3, LIBSSIGNAL 
01 DD 000CD 8s: PUSHL #1 1264 
00000000G_ EF 01 FB OOOCF CALLS #1, REWRITE_RECORD 
000000006 _ EF 00 FB 000D6 CALLS #0, UNLOCK_QUEUE_FILE 1269 
04 000DD ET 1271 
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vet 12-88-1382 09:99:92 ABBCTL SReISCHEDULER. 68252 9 a) 
; 235 7 GLOBAL ROUTINE AFTER_AST: NOVALUE= 
i. eer 
: 239 1 i: 1 | FUNCTIONAL DESCRIPTION: 
; 240 eae This is the completion AST routine for the timer on the timed job 
; 241 1278 1! queue. It requeues all jobs whose expiration time is earlier than or 
: : ! R : equal to the current time and sets a new timer. 
$264 1281 1 | INPUT PARAMETERS: | 
45 Be NONE 
: 23 1284 1! IMPLICIT INPUTS: | 
; 48 8S NONE 
: 250 1 Hy 1 | OUTPUT PARAMETERS: 
; 31 88 NONE 
: 26 1290 1! IMPLICIT OUTPUTS: 
pocein ae 
: 256 1 38 1 | ROUTINE VALUE: 
ee imi a 
: 259 1598 1 | SIDE EFFECTS: 
> 260 1297 1: NONE 
> 261 1298 1! 
Be is hs 
: 264 1301 2 BEGIN 
> 265 1308 2 SCHEDULE_NONAST (AF TER_NONAST) ; 
3; 266 1303 1 END; 


0000 00000 -ENTRY AFTER_AST, Save nothing : 1272 
FFIC }§=6©CF 69F 00002 PUSHAB AFTER NONAST ; 1302 

00000000G_ EF 01 FB 00006 CALLS #1, SCHEDULE_NONAST 3 
04 00000 T ; 1303 


3; Routine Size: 14 bytes, Routine Base: CODE + OODE 


68 


Nt tt 1 QOOOOOO 


AUS WN OS OONOAUES WN (OOD NOAUS WN O DONA UE WAN" OOONOUS 


oO 
“ 
a a td dd dd dd od od dd ed dd dd wd 


AAA AA AAAI WIAA AAAI AANA IAIN NIAAA WIN AAA AINAIA ANAM 


PUPP PPPS BS BS BB EEE AANA AAI nonrononononorn 


ee Sa SE 
PWN OC OOwe Vu Fw oO 
COOONO UNSW -O0O~ 


o 


Be Ba Se Se Se Se Se Se Be Se Se Be Se Se Se Be Se Oe Ge Be Be Se Be Se SH Ge Be Se Ge Ge Se Se Se Se Se Ge Se Se Se Se Oe Se Se Oe Se Os Oe Oe Oe Se we Se Se Se Geese 
nN 
o 
oO 


PUP BB BB ANIA. AIPPIPIPINPINPIPIPINPNPUPININPIPINIDS 2 9 tt 


8 
oe ec creda S$eoc19Be 99:85:02 YASS OLseyc¥ze 4605 


GLOBAL ROUTINE REQUEUVE_STARTING_JOBS(SMQ_N,SMQ): NOVALUE= 


'e¢ 


' 
FUNCTIONAL DESCRIPTION: 
This routine requeves starting jobs in a specified queue. 
INPUT PARAMETERS: 
SMQ_N - Record number of SMQ. 
SMQ - Pointer to SMQ. 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
NONE 
SIDE EFFECTS: 
NONE 


BEGIN 

MAP 

SMQ: REF BBLOCK; 
PRED MODIFIED, 

SJ 


Pointer to SMQ 

LOCAL 

True if predecessor modified 

Record number of predecessor of SJH 


. 
' 

JH_P: REF BBLOCK, ! Pointer to predecessor of SJH 
SJH_NS, ! Record number of successor 
SJH_N, ' Record number of SJH 
SJH: REF BBLOCK; ! Pointer to predecessor 


PRED_MODIFIED = FALSE; 
SJH_A : 


= J 
SJH_N = .SMQCSMOQS$L_CURRENT_LISTI; 
WHITE 2 SJHLN NEQ 0°00 


BE 

SJH = READ RECORD. SJH N); 
SJH_NS = .SJHCSYMSL_LIAK); 
AF gj SUNCSINSV STARTING) 


BEGIN 
UPDATE _GETQUI_DATA(.SJH_N, .SJH); 
IF .SJA_NP EQC 0 


BEGIN 
CMOL SMOSL CURRENT_LIST) = .SJH_NS; 
JF: SUH_NS EQL 0 THEN SMOCSMQSC_CURRENT_LIST_END] = 0; 


~ ae 
| 
| 
| 
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: 325 1361 4 ELSE : 
; $ 136 BEGIN : 
3 136 SJH_PCSYMSL_LINK] = ; 
; 328 1364 IF 7SJH_NS EQL 0 0 THEN *Shat Shas CURRENT_LIST_END] = .SJH_NP; : 
; ; 65 ; PRED MODIFIED = TRUE; : 
; 1 1367 4 mocsmase CURRENT JOB_COUNT] = .SMQCSMQ$B_CURRENT_JOB_COUNT] - 1; ; 
3 ¢ 1368 4 ENQUEVE_JO0B(.SJH_A, ae : 
; 1369 4 REWRITE-RECORD(.SJH : 
; 1370 4 END | : 
; 5 1371 3 ELSE | : 
; 1 2 4 BEG! ; 
: 1373 4 IF .SJH_NP NEQ 0 | 
; 338 1374 4 THE | ; 
; 3 1375 4 IF TESTBITSC (PRED MODIFIED) ; 
; 1376 4 THEN REWRITE_RECORD(.SJH HNP) | ; 
; 1377 4 ELSE RELEASE =RECORD(.SJH INP) ; | ; 
; 1378 4 SJH_NP = .SJH_N; ; 
; 1379 4 SJH-P = .SJH; | : 
; $s 1381 SJH_N = .SJH_NS; : 
. 1386 E Py | . 
: <3 138 IF .SJH_NP NFO 0 ‘ 
; 348 1384 2 THEN | : 
; 349 1385 IF -PRED _MODIF IED : 
; 350 1386 THEN” REWRITE_RECO ORD(. SJH_NP) ; 
; 351 1387 ELSE RELEASE_RECORD(.SJH_NP); : 
; 352 1388 1 END; ; 
> INFO#250 L1:1363 : 
Referenced LOCAL symbol SJH_P is probably not initialized | ; 
OFFC 00000 -ENTRY REQUEUE STARTING JOBS, Save R2,R3,R4,R5,R6,-; 1304 : 
R7,R8,R9,R10,R11~ ; ; 
59 000000006 EF 9E 00002 MOVAB REWRITE RECORD, RO : : 
7 D4 00009 CLRL PRED _MODBIF 2 1346 | ; 
53 D4 90008 CLRL SJ 7 1345 ; 
52 08 AC DO 0000D MOVL R2 > 1346 ; 
5 48 Ae 9 90011 MOVL Cay SJH_N ; ; 
71 13 00015 1$ BEQL 6-9 : 1347 : 
5 DD 0017 PUSHL SJH_N : 1349 | 3 
000000006 EF 1 FB 00019 CALLS #1, ~READ_RECORD ; : 
4 0 00 000 9 MOVL : ; 
56 64 DO 000 MOVL (SdH) SJH_NS ; 1350 | 3 
3A 11 AG 04 £1 000¢6 BBC 1P(SJHT, 5$ > 1351) ; 
4 DD 99 3 PUSHL > 1354) ; 
55 DD 00020 PUSHL _N : 3 
000000006 EF 08 FB OOO?F CALLS si pi ers fam eae ; ; 
D5 000 TSTL SJH_NP : 1355) 3 
08 1 99 BNEQ : | 3 
48 A2 6 DO 0003A MOVL § SJH_NS, 72(R2) ; 1358. 3 
11 12 000 BNEQ 6 4$ : 1359, 3 
4C A2 04 0004 CLRL = 76 (R2) ; | : 

OC 11 0004 BRB 4$ ; 1355. 


i 


dD 8 
SCH ER Job scheduler 16-Sep-1984 00:25:09 AX-11 Bliss-32 V4.0-74 Page 16 
vousoot 1328671382 99:99:92 JOBCTL.SRCISCHEDULER.B32;2 * a 
68 $ p O9¢8 2$: poy, {HANS, (SJH_P) : 1363 
4c Ag 3D 4A MOVL  SJH_NP, 76(R2) : 
5 1 p 0 4F 3$: MOVL #1,” PRED_MODIFIED > 1365 
0115 2 03 4$: DECB © 277 (R2) > 1367 
DD 00 23 PUSHL : 1368 
5 DD 903 PUSHL SJHAN ; 
0000v CF : a) 0 9 CALLS #2, ENQUEUE_JOB : 
DD 0005 PUSHL  SJH_N : 1369 
69 O1 FB 006 CALLS #1, REWRITE_RECORD F vus 
38 D 906 5$: TSTL JH_NP : 137 
14 13 0006 BEQL ; 
07 57 99 E5 00069 BBCC #0, PRED_MODIFIED, 6$ 3; 137 
53 DD 0006D PUSHL SJH_NP 3 137 
69 01 FB 0006F CALLS #1, REWRITE_RECORD ; 
09 11 00072 BP 7$ ; 
53 DD 00074 6$ PUSHL SJH_NP ; 1377 
000000006 EF 01 FB 00076 CALLS #1, RELEASE RECORD : 
3 55 DO 00070 7$: MOVL SJH_N, _AP ; 1378 
58 54 DO 00080 MOVL SJH, SJH 3; 1379. 
55 56 DO 000835 8S: MOVL SJH_NS, SJH_N : 1381) 
8D 11 00086 BRB 1$ : 1347 
53 DS 00088 9%: TSTL SJH_NP : 1383 
is 13 QO08A BEQL F 
06 57 €9 0008C BLBC PRED_MODIFIED, 10$ ; 1385, 
53 DD 0008F PUSHL # 3; 1386. 
69 01 FB 00091 CALLS #1, REWRITE_RECORD : | 
04 00094 RET ; 
53 DD 00095 108: PUSHL SJH_NP ; 1387, 
G EF LL - REL sd : 
00000000 01 FB 00097 CALLS #1, ~RELEASE_RECORD 
04 OO09E 11%: RET : 


; Routine Size: 159 bytes, Routine Base: CODE + OOEC 
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H ¢ } H ! ROUTINE EXECUTOR_SCHEDULING_POLICY(SJH,SMQ_1,SMQ_2)= 

3 $ 13591 1 lee 

; 1392 1! 

; 3 1395 1 ! FUNCTIONAL DESCRIPTION: 

3 2 : 9¢ : } This routine implements the default executor scheduling policy. 
> 361 13596 1 ! INPUT PARAMETERS: 

H o¢ 1397 1! SJH - Pointer to SJH. 

; 1398 1! SMQ_1 - Pointer to first SMQ. 

; 364 1399 1! SMQ_2 - Pointer to second SMQ. 

; 365 1400 1! 

; 366 1401 1°! IMPLICIT INPUTS: 

3 er 1008 a NONE 

; 368 1405 1! 

; 369 1404 1 ! OUTPUT PARAMETERS: 

; 370 1405 1! NONE 

: 371 1308 1} 

: Le: 1407 1 ! IMPLICIT OUTPUTS: 

s Ss? 1408 1! NONE 

: 374 1409 1! 

; 375 1410 1 ! ROUTINE VALUE: 

3 A} 1e48 : True if SMQ_1 is more desirable than SMQ_2; false otherwise. 

; 378 1218 1 ! SIDE EFFECTS: 

; 379 1414 1! NONE 

; 380 1415 1! 

3s Sel 1416 1 !-= 

; 386 1417 1 

; = 1418 2 BEGIN 

; 384 1419 2 MAP : 

3 385 1420 2 SJH: REF BBLOCK, ! Pointer to SJH 

: 386 1421 2 SMQ_1: REF BBLOCK, ! Pointer to SMQ 

; 387 1656 2 SMQ_2: REF BBLOCK; ! Pointer to SMQ 

; 388 142 § 

; 389 1424 

: 390 1425 2 IF .SMQ_1CSMQ$V_BATCH) 

; 391 1426 § THE 

3 ; oy 44 BEGIN 

: 394 166) : ! In this implementation, the batch queue that will have the lower 
; 4 ? ? percentage utilization is the more desirable. 

: 397 143 

; 398 14 : (.SMQ_2CSMQ$B_CURRENT_JOB_COUNT] + 1) * 100 / .SMQ_2CSMQ$B_JOB_LIMIT] LSSU 
3 in eRe (.SMQ_1CSMQ$B_CURRENT_JOB_COUNT] + 1) * 100 / .SMQ_1CSMQ$B_JOB_LIMITJ 
; 401 1636 RETURN FALSE; 

; 40 14 

; 40 rt ELSE 

; 404 1439 BEGIN 

; 405 1440 : ‘ 
; 406 1441 ! In this implementation, printers on the local node are more desirable 
; 407 | ! than printers on remote nodes, but otherwise printers are equally 
; rts 106? : desirable. 

; 410 1445 4 IF SYSID_EQL(SJHCSJH$T_SYSID]. SMQ_2CSMQ$T_SYSIDJ) 
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wNEQ(SJHCSJHST_SYSID], SMQ_1CSMQ$T_SYSIDJ) 


RETURN FALSE; 


AND SYSID 
THEN 
END; 
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; 4 14 ‘ ROUTINE EXECUTOR_ACCEPTS_JOB(QSMQ_N,QSMQ,ESMQ_N,ESMQ,SJH_N,SJH)= 
if 1 | 1 

: 4 14 8 1 i FUNCTIONAL DESCRIPTION: 

3; 6 14 1! This routine determines whether executor queue ESMQ can accept job SJH 
: : 1099 : that was entered in queue QSMQ. 

3 6 146¢ 1) INPUT PARAMETERS: 

; 6 1463 1! QSMQ_N = Record number of fi SMQ. 

; 4 1464 1! QSMQ - Pointer to job's 

3; 6 be #1 1! ESMQ_N - Record number of executor SMQ. 

3 «6 14 $ 1 / ESMQ - Pointer to executor SMQ. 

; 4 1467 1! SJH_N - Record number of SJH. 

3 ? 10e8 : JH - Pointer to SJH. 

3 6 1470 1! IMPLICIT INPUTS: 

4 [118 Beats 

 ¢ 1298 1 | OUTPUT PARAMETERS: 

ise: Saji 

: 66 1476 1 | IMPLICIT OUTPUTS: 

Boo BE i 

: 445 1479 1 { ROUTINE VALUE: ; 

3 rr rt + : True if the job can be initiated, false otherwise. 
: 448 148 1! SIDE EFFECTS: 

; 449 148 1: NONE 

: 450 1484 1! 

3; «451 1485 1 i- 

; +26 1486 1 

e eee ss 

> 455 1489 Qsma: REF BBLOCK, ! Pointer to SMQ 

3; 456 1490 ESMQ: REF BBLOCK, ! Pointer to SMQ 

; 457 1491 SJH: REF BBLOCK; !' Pointer to SJH 
7.) ee: 

: 460 1494 ' If either the job's queue or the executor queue is not running, fail 
; ret rh immediately. 

; 468 1497 2 IF .ESMOCSMOSV_PAUSED) 

: 664 1498 OR .ESMOLSMQ$V_PAUSING] 

; 665 1499 OR .ESMQ RE ined 

; 466 1300 OR .ESMOLSMOSV_ “STARTING 

: 467 1501 OR .ESMOQ SMQ$V~STOPPED] 

; 468 1308 OR .ESMOLSMQ$SV_UNAVAILABLE) 

3 rt 1303 orn .-QSMQ SMOSV— STOPPED) 

> 471 1505 RETURN FALSE; 

ie IM 

; rte 1208 : If the job's queue is assigned, but not to the executor queue, fail. 
: 476 1510 2 IF .QSMQCSMOSL_ASSIGNED_QUEUE_LINK] NEQ 0 
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eo 


SMQ$S_PROCESSOR, QSMQ SHOST PROCESSOR} 
nee SMQ$S~PROCESSOR, ESMQLSMQ$T-PROCESSOR))) 


RETURN FALSE; 
ND; 


° | 


| 
Otherwise, the queue must be the same queue. 
ELSE IF .QSMQ_N NEQ .ESMQ_N 

RETURN FALSE; | 


PEA ADA AAA Mann & 
LIS re Gah > Ooo rAd) OOO NOME WN OOo 


3: 47 151 EN : 
3 67 151 BEGIN . 
: : } ! Pegi eet ASSIGNED QUEUE LINK) NEQ .ESMQ_N : 
3; 6 1515 RETURN FALSE; ‘ 
3; 4 ¢ 1 1 END : 
i ¢ 18} 
; 485 1 15 ! If the job's queue is generic and the executor queue cannot accept generic ‘ 
3 : } Y : selection from this queue, fail. : 
; «6 1 § FUSE IF .QSMOCSMOSV_GENERIC_QUEUE] : 
3; 6 1 HEN : 
3; 6 1526 BEGIN ; 
: $691 1525 IF .QSMOCSMOSL_GENERIC_TARGET] NEQ 0 | : 
: 49 1 $ THEN : 
; 49 1 4 BEGIN : 
3 696 1 3 4 LOCAL | ’ 
: 495 1 4 4 AUX: REF BBLOCK; ! Pointer to generic target block | : 
: i99 1531 4 AUX = READ_RECORD(.QSMQCSMOQSL_GENERIC_TARGET)); : 

4 1 & IF : 
; 4 1 j BEGIN : 
3 1 DECR I FROM .VECTORCAUXCSYMST patel. 0] TO 1 DO é 
; 1535 IF .VECTORCAUXCSYMS$T_DATAJ, .1) EQL .ESMQ_N ; 
3 1 THEN EXITLOOP FACSE ; 
: 5 END | ; 
3 3 
; 1 BEGIN ; 
3 154 RELEASE _RECORD( .QSMQCSMQSL_GENERIC_TARGET)); : 
; 136 RETURN FALSE; ‘ 
3 1545 4 ELSE : 
3 : 136 2 RELEASE_RECORD( .QSMQCSMQSL_GENERIC_TARGET)); : 
: 51 1546 3 : 
3; $1 136 4 BEGIN ; 
; $1 1548 4 IF NOT sf atet areey GENERIC_SELECTION) . 
: $1 15 4 OR .QSMQ presy TERMINAL] NEQ .ESMQCSMOQSV_TERMINAL) : 
ot. an 15 OR (.ESMQCSMOS)_SERVER ; 
3 1 13 AND CHS$NEQ( : 
: 1 1 : 
: 1 15 : 
3 1 4 ° 
3 1 4 : 
z 1 : 
3 1 ‘ 
3 1 ‘ 
3 1 : 
3 1 : 
3 1 : 
} ; 
; 12 : 
3 1 ‘ 
3 1 : 
3 1 ‘ 
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! Ensure that the job count is not exceeded and that the characteristics match. 
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-Sep-1 JOBCTL.SRCISCHEDULER. 3 2:2 
| 
3 1 : H 
; $35 1 if .eSmoC CURRENT _JOB_COUNT) GEQU .ESMOQCSMaSB IT) : 
; 1 5 OR (. (SJHESJHST CUMARACTERIST ICs ) AND NOT -¢ ng shag _ch HARACTERISTICS] )) NEQ : 
; 1 f OR (. (SJHCSJHST-CHARACTERISTICSJ* 4) AND NOT CHARACTERISTICSJ* 4)) NEQ : 
; 1 OR (.(SJHESJHST =FHARAGTERISHIES . §) AND (ESM Q om I: “CHARACTERISTICS + §)) NEQ : 
i 33 | Le, OR (. (SUH SJHST~CHARACTERISTICSJ#12) AND NOT: . CESMOLSMOST-CHARACTERISTICSJ+12)) NEQ : 
: $4 1575 RETURN FALSE; ; 
a 1895 | 
: 4b 28 ! Finish with printer queue specific testing. : 
; cg 1580 if NOT .ESMOCSMOSV_BATCH) ; 
3 $6 1 THEN F 
; r ; BEGIN ; 
; ° ! ¢ If the job requires lowercase, ensure that the queve supports it. : 
3 ¢ i if (.SJHCSJH$V_LOWERCASE] AND NOT .ESMQCSMQ$V_LOWERCASE)) : 
; 554 1588 RETURN FALSE; ; 
. ee: : 
; 39 : 4 If the queue has job size limits, ensure that the job is in range. | : 
: 389 1398 & ir ¢, jEsmacsmast re SIZE MAXIMUM] NEQ_0 | : 
; 560 1594 4 JHCSJA i JOB sTz6) J gray wes _ESMACSROSL _40B_SIZE_MAXIMUM]) 3 
; 561 1333 4 OR (. wean tte SIZE_M : 
; 56 1 % 4 AND .SJH NESuASS “308. S176) LSSU NESMOCSMOSL _J0B_S1ZE_MINIMUM]) ; 
; 2 159 THEN : 
; 564 1 98 RETURN FALSE; ; 
; 565 1225 : 
; $$ 190) Ensure that the form stock names match. : 
; e3 1808 if F 
; 570 1604 4 BEGIN ; 
; 4 16 5 4 IF ; S9HCSJHSL_FORM_LINK] EQL .ESMOCSMOQSL_FORM_LINK] : 
0 a 7 
1 eres oy: 
: 7 1814 SFM_1: REF BBLOCK, ' Pointer to job's, SFM | F 
3 i 1el¢ SFM_2: REF BBLOCK; i Pointer to queue's SFM | : 
; 80 1614 SFM_1 = READ_RECORD(. ‘ati FORM_LINK}); : 
; 581 1615 SFM~2 = READ-RECORD(.ESMQCSMQSC_FORM_LINKJ); F 
3 § 1616 IF CHSEQL( 3 
; 161 SFM$S_STOCK, SEn_IESERS ocx] 3 
3 1618 SFMSS-STOCK, SFM~2CSFM ~ST0tK ) | F 
; 585 161 THEN ; 
; 1620 BEGIN | ; 
; 1621 é RELEASE _RECORD(.SJHCSJHSL FORM_LINK)); | 3 
; 588 16 é RELEASE -RECORD( .ESMOLSMQ$C_FORM_LINK)); ; 
; 89 1623 6 FALSE | ; 
; 1624 6 END | ; 
| 
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ELSE 
N 
ELEASE_RECORD(.SJHCSJHSL_FORM_LINK]); 
if SE-RECORDC ESMOES nose FORA_LINKJS; 


NOW 


END 
THEN 
" RETURN FALSE; 
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TRUE 
END 


OOFC 00000 EXECUTOR ofS certs JOB: 
Save R2,R3,R4,R5,R6,R7 


57 000000006 EF 9€ 9002 hOvAB READ RECORD 
MOV 
mm EUR 
5 10 A a1 MOVAB 
03 20 9 fi 0018 BBC 
01 1 goic 1$: BRW 1 
9 6 6 EO OOO1F 2$: BBS 8 
5 6 é £0 000 : BBS #6 
FI 01 Ad €8 000 BLBS sd 
ED 60 9 €E0 00028 BBS rT) 
£9 $0 B £0 0002F BBS wii 
o on Gh A BR kos 
5 08 AC 00 0003C MOVL Qs 
2c A2 D 004 TSTL 6 4&4 
07 13 0004 BEQL «= 3 
Oc AC 2c Ae D1 0004 CMPL 6-4 4(R2), 
3 11 0004A BRB $ 
47 OD A E1 0004C 3$ BBC He 
5 74 ~«OA 0 itt MOVL 
Ht 
67 1 FB 0039 CALL i 
51 0c Ad 1 ¢ ¢ ADDL3 #1 
8 1 0006 BRB 5 
Oc AC OC A04 p| 63 4$ cMPLC 
8 : 7 BEQL 6 
FS 1 F 5$: SOBGTR | 
pp 6 PUSHL RS 
00p BRW 1 
DD 00073 6$: PUSHL R3 
66 Fe 7 CALLS #1 
1 7 BRB i 
9D op AG ft 7A 7$: C 6 
50 — A OE A2 &D 0007F XORB3 14 


ELEASE RECORD, R6 
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RELEASE _RECORD 
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; Routine Size: 342 bytes, Routine Base: CODE + O1FF 
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Job scheduler 1ersepn19be $3:8F:16 — Uodact “sae Sschepuien-682;2 


row 


607 1640 1 ROUTINE FIND AVAILABLE EXECUTOR(SMO_N,SMQ,SJHN,SJH; ESMQ): L_OUTPUT_1= : 
; 6 1642 1 !+4 | 3} 
: 61 1808 1 | :1 
; 61 1644 1 ! FUNCTIONAL DESCRIPTION: 37 
3 ois 1645 1! This routine searches for an executor that can accept a job, and if one 1 
3 el? 6 ! is found, initiates the job. : : 
: 615 1648 1 i INPUT PARAMETERS: :1 
3 ol8 1649 1! SMQ_N - Record number of SMQ. 3 1 
3 $63 1999 1! SMQ - Pointer to SMQ. 3 1 
: $18 192) 1! SJH_N - Record number of SJH. 3 7 
3 66f 16 1! SJH - Pointer to SJH. | 3 1 
; 620 1688 1! 3 1 
; 621 1654 1°! IMPLICIT INPUTS: 3: 1 
: 658 1635 1 | NONE i. 
> 626 1657 1 | OUTPUT PARAMETERS: :1 
3 6 5 1638 ! ESMQ - Pointer to executor SMQ. 2 | 
: 6 ; 1660 1 | IMPLICIT OUTPUTS: :1 
: 855 16621 | -— 2 
; ro 1868 i ROUTINE VALUE: 31 
3 os) 1968 ! True if the job was initiated, false otherwise. : : 
; £38 1666 1 | SIDE EFFECTS: :1 
3; 634 1667 1! NONE 3 
; 635 1668 1! - 7% 
; 636 1669 1 !-- a 
3; 637 1670 1 3 7 
oe eo 3 
; 640 1678 SMQ: REF BBLOCK, ' Pointer to SMQ ; 1 
3; «6641 1674 SJH: REF BBLOCK, ' Pointer to SJH 31 
3 O46 1675 ESMQ: REF BBLOCK; ! Pointer to ESMQ 3 1 
; 64 1676 LOCAL 3 1 
3; 644 167 ESMQ_N, ' Record number of ESMQ 3 1 
; 645 1678 CSMQ_N, ' Record number of CSMQ 3 
; 646 1679 CSMQ: REF BBLOCK; ' Pointer to CSMQ 3 1 
tes 1681 - 
; ret 1086 : If the queue to which the job was submitted is not running, fail immediately. 3 | 
: 651 188 if .SMOCSMQ$V_PAUSED] | 31 
3 O36 1685 OR .SMQCSMQ$V~PAUSING) 3 1 
3 65 1686 OR .SMQ $v- G) 3 | 
3 654 1687 OR .SMQCSMOQ$SV"STARTING) 31 
> 655 1688 2 OR .SMOCSMOSV~STOPPE 3] 
; 696 1689 R sno SMOQ$V"UNAVAILABLEJ 3 
; 658 1691 RETURN FALSE; | 2 
: 825 1698 | ] 
; 661 1694 ! If the queue to which the job was submitted is a logical queue, then the. | 3 | 
3 666 1695 ! job must execute on the queue assigned to the logical queue. determine if 3 | 
; 66 1696 ' that queue can accept the job. Otherwise, fail immediately. 3 1 


CSMQ_N = ,VECTORCAUXCSYMST_DATAJ, .1); 
CSMQ = READ RECORD(.CSMQ_NJ; 
IF .CSMOQLSMO$V BATCH) EQC .SmMaCSMQ$V_BATCH) | 
AND NOT .CSMOQCSMQ$SV_GENERIC QUEUE] | 
AND .CSMQCSMQ$L_ASSTGNED_QUEUE_LINK] EQL 0 


JF EXECUTOR ACCEPTS JOB(.SMO_N, .SMQ, .CSMO_N, .CSMQ, .SJHN, .SJH) 


SSN 
Roa ae a ss Ss SS 
COONO Ul wn—oO 


BEGIN 
IF .ESMQ_N EQL 0 
THEN 

BEGIN 
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voeeoot 12286871388 09:93:02 JOBCTL. RCISCHEDULER.B 2:2 ’ BS | 
; 664 1697 : 
; 665 1698 IF .SMQCSMQ$SL_ASSIGNED_QUEVE_LINK] NEQ 0 
$ e¢ 199% THEN 
; 66 1700 BEGIN 
; 668 178) ESMQ = READ_RECORD(ESMQ_N = .SMQCSMQ$L_ASSIGNED_QUEUE LINK); 
; 669 17 ¢ F_NOT EXECOTOR_ACCEPTS-JOB(.SMQ_N, .SMQ, .ESMQ_N, .ESMQ, .SJH_N, .SJH) | 
; 670 170 THEN 
; 671 1704 4 BEGIN 
3 ore 1705 4 RELEASE _RECORD(.ESMQ_N); 
; 67 1706 4 RETURN FALSE; 
; 674 170 END; 
; 675 1708 END 
; 676 1709 
: 677 1710 
; 678 1711 ! If the queue to which the job was submitted is an executor queue, then the 
; 679 rig ! job must execute on that queue. Determine if that queue can accept the job. 
; on” Fat } therwise, fail immediately. | 
; one 1715 ELSE IF NOT .SMQCSMOQ$V_GENERIC_QUEUEJ 
; ¢ 1716 THEN 
; 6 1717 BEGIN 
; 685 78 ; IF NOT EXECUTOR_ACCEPTS_JOB(.SMQ_N, .SMQ, .SMQ_N, .SMQ, .SJH_N, .SJH) 
; 687 1730 RETURN FALSE; 
; 688 1721 
3; 689 \7s¢ ESMQ_N = .SMQ_N; 
; 690 7s ESMQ = .SMQ; 
3; 6691 1724 END 
; 69 1725 
: 69 1726 | 
3 694 1727 ' If the queue to which the job was submitted is a generic queue that has 
; 695 1728 ; Spec itis Sorges queues, search the target queues to locate a queue on 
3 696 1763 which the job can execute. 
; 698 1731 ELSE IF .SMQCSMQ$L_GENERIC_TARGET] NEQ 0 
: 699 1732 @ THEN | 
; 700 173 BEGIN 
; 701 1734 LOCAL . ; 
; 1735 REF BBLOCK; ! Pointer to generic List 
; 7 1736 
3 704 1737 
; 705 1738 AUX = READ_RECORD(.SMQCSMQ$L_GENERIC_TARGET)); 
: 706 1739 ESMQ_N = 0; 
; 707 1740 INCR I FROM 1 TO .VECTORCAUXCSYM$T_DATA], 0] DO 
; 708 1741 4 BEGIN 
3 arog 4 
3 17 4 
3 1744 4 
3 1745 4 
3 17 § 4 
3 17 4 
: 1748 4 
3 1749 4 
3 1750 5 
3 1751 : 
: 17 § 
; 17 6 
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SCHEDULER Job scheduler 16-Sep-1984 00:25:09 AX=11 Bliss-32 V4.0-74 Page 27 
voos0bt 12286871382 99393: 94 JCACTL.SRCISCHEDULER.B52;2 . a 
: 721 1754 6 ESMQ_N = .CSMQ_N; 
; f ¢ i 6 as ~CSMQ; ~ | 
3 4 ¢ 1737 ; we IF NOT EXECUTOR_SCHEDULING_POLICY(.SJH, .ESMQ, .CSMQ) 
; £ § 1589 6 BEGIN 
aa 1760 6 RELEASE _RECORD(.ESMQ_N); 
: 728 1761 6 ESMQ_N = .CSMQ_N; 
3; fe 1766 g ESMQ = .CSMQ; 
; 730 176 END; 
; 731 1764 4 END; 
; 4 ¢ 1763 4 | tea NEQ .ESMQ_N THEN RELEASE_RECORD(.CSMQ_N); 
; 734 1767 RELEASE RECORD(.SMOQCSMO$L_GENERIC_TARGET])); 
; 735 1768 IF .ESMOG_N EQL 0 THEN RETORN FALSE; | 
. 7 $ 1769 END 
3; fs 1770 
; se 1771 
; ty rr ! If the queue to which the job was submitted is a generic queue, execute a 
; 740 177 : full search of the queues to locate a queue on which the job can execute. 
> 741 1774 ! CSMQ is the candidate queue, and ESMQ is the most desirable of the queues | 
3; 74 1775 ! on which the job can execute. 
: 74 1776 : 
3 744 1777 2 ELSE 
; 745 1778 BEGIN | 
; 746 1779 LOCAL 
3; 747 1780 SQX: REF BBLOCK, ! Pointer to SQX 
; 748 1781 SQX_N, ' Record number of SQX 
; 749 1788 SQX_NS, ! Record number of successor of SQX 
; 750 178 SQE: REF BBLOCK; ! Pointer to SQX entry 
3 oy 1784 
; £ 1785 
3 1786 ! Scan the queue index for an available queue. 
3 Pee 1787 ; 
3 it? 1788 ESMQ_N = 0; 
; 756 1789 SQX = READ “foe gee RECNO); 
; 757 1790 SQX_N = .SOXCSQHS$L_QUEUE_INDEX_LIST); 
; 758 1791 RELEASE_RECORD(SQHSK_RECNO) ; 
; 759 1798 WHILE .SQX_N NEQ 0 DO 
: 760 1793 4 BEGIN 
: 761 1794 4 
; 762 1795 4 ! Read the queue index record. 
; 763 1796 4 : 
; 764 1797 4 SQX = READ_RECORD(.SQX_N); 
3 765 1798 4 
; 766 1799 4 
: 767 1800 4 ! Scan the queue index record. 
; 768 1801 4 : 
; 769 1308 6 SQE = SQXCSYM$T_DATA); 
; 770 1803 4 INCR SQE_N FROM™O TO SQXS$K_ENTRIES-1 DO 
; wm 1804 : BEGI 
ae df 1805 IF CHSRCHAR(SQECSQX$T_NAME]) EQL C 
He BEG 
3; 774 180 EXITLOOP 
: 775 1808 5 
3; 77 1809 6 BEGIN 
3; W7 1810 6 IF .SQECSQX$V_BATCH] EQL .SMQCSMQ$V_BATCH] 
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UN ee 1E$e0c198e 99:95:02 YASS OLLegzAz, 46-742 roe 


AND . SQELSOXSV_ EXECUTOR] 
AND « SOECSOXSV_GENERIC_ SELECTION] 


BEGIN 
CSMQ 


4 
= READ_RECORD(CSMQ_N = .SQECSQXS$L_QUEUVE_LINK]); ’ 
IF EXECUTOR-ACCEPTS_JOBt 
~SMQ_N,-.SMQ, .CSMQ_N, .CSMQ, .SJH_N, .SJH) ; 
THEN i 
BEGIN 
IF .ESMQ_N EQL 0 
THEN 
BEGIN 
ESMQ_N = ,Csna. N; | 
ESMa = .CSMQ | 
ELSE IF NOT EXECUTOR SCHEDULING_POLICY(< 
~SJH, .ESMQ, .CSMQ) | 


- 


EGIN | 
RELEASE RECORD (.ESMQ_N); | 
ESMQ .CSMQ_N; 

ESM” YT caMa: 


es 


END; 
IF .CSMQ_N NEQ .ESMQ_N THEN RELEASE_RECORD(.CSMQ_N); 


END; 
pe = .SQE + SQXx$S_SQx; 


3 


Advance to the next index block. 


SQX_NS = .SQXCSYMSL “INK; 
RELEASE  RECORD(.SQX_N 
SQX_N = .SQX_NS; 
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IF ESMO_N EQL 0 THEN RETURN FALSE; | 


' ESMQ has been determined to be available and acceptable for the job. 
Initiate the job. 


UPDATE_GETQUI DATA‘. SJH_N, .SJH); | 
START_EX Sean en (ES SMO_N, .ESMQ, .SJH_N, .SJH); 
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8 ! 
9 If .ESMQ_N NEQ”.SMQ_N | 
360 THEN 
1 BEGIN 
4 READ_RECORD(.ESMQ_N); 
? 2 REURTTE _RECORD(. ESM. N); 
§ 65 TRUE. 
66 END; 
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° -74 Be 
9 25. AX-11 Bliss-32 V4.0 2:2 | . 1 
1fogeo-t9ge 13:97:42 | bactu sre Sscnebuier 6 | ar 
heduler * ; 1748 as 
DULER Job sc Q 8$ : > 4 
VOu=001 37 12 000BA ROva — SIWN, (SP) ea eee St 
7 See oc PUSHR #°M<R2,RO> oe at 
44 8F BB PUSHL  SMQ_ PTS_JOB : | : 14 
sy a + DD 900¢ CALLS #6, “EXECUTOR ACCE East f 
| rope 30 ‘i cf rst Esha. 4757 Ht 
et a 2 4 
PU 2 o ie 
D cy ea! 
10 DD se CALS 8 EXECUTOR, SCHEDULING POL ; 70 zs 
F € BLBS cd N . ; le 
FDSS cf 30 EB aoe PUSHL Wi, RELEASE RECORD : Hee gs 
1 F MOVL = CSMQ_ ; 176 : 1 
ee ee a) ae peep 
$6 BI Goors os: Ct By: tamale 
PGE. BES, Hl ae con Sele 
01 AOBLEQ + ee ; 71 
000000006 _ EF AS F3 00101 9$ SHL  116(R2) RD F stan! i F 
92 55 of Az db 00106 CALLS Wi, RELEASE RECO i ; f 
spose: 008t DD OOITS 118; PUSHL #1. READ_RECORD 1790 | 14 
00000006 EF a b8 OOrt¢ ROVE Macken, SQX_N ; 1791 iii 
0 MOVL ditties : : 14 
59 ** OF DD O0l28 CALLS #1, RELEASE _RECORD ; 1792 a 
’ - e 3 ¢ 
000000006 EF 24 08 ie 12s: Ist ios" : 1797 ; F 
PREIS BEN FP tee nec MUL 
1 e : . 4 
000000006 EF 50 0 B18 MOVAB Le he? >, 90 ; 1805 : i 
Bo QD1sd |. CARL SOE pwr OE 
eF 73 aot4s é RORBS 3¢S0E), 12(R2), RO ; 1811 | 1! 
20 A3 8D 00146 BLBS = RO, 168 168 : 1812 | ; t, 
50 ce 30 EB O14 cet Ale BgtSED. 168 ; 1815 24) 
1 BBC mQ_N : 71 
4 6(SQE), CSMQ_ | er 
SA ; 3 Oe EI 136 MOvL 36 SQE | 1 
ec 2) sag recon ia) [EE 
F R e $ } : | 
000000006 EF 35 00 80166 MOVG — SUKLN. = (SP) : | : 
: 0c AC 7D 00169 PUSHL SMO | 1 
re 34 bb 00160 PUSHR = #URCR2,R6> | 71 
ar ae aT 173 CALLS ig. “EXE CUTOR,ACCEPTS _J08 : 1820. ni 
F R o @ 7 

wt quae OBE RAN 
78 88 Bolan BEQL 
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FCA8 


000000006 


000000006 
8D 


000000006 


000000006 
000000006 
04 


000000006 
000000006 


520 bytes, 


Routine 
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3 DD 001 PUSHL CSMQ 
7 DD 001 PUSHL ESMQ 
10 at DD 001 PUSHL qi 
cf FB 1 CALLS #3, FXECUTOR SCHEDULING _POLICY 
F 0 € 1 f BLBS RO, 15 
B DD 001 PUSHL ESMQ_N 
F 1 F 193 CALLS #1, RELEASE _RECORD 
8 6 D 19A 148 MOVL CSMQ_N, ESMO_N 
4 0 19D MOVL SMQ, ESMQ 
58 § D1 OO1A0 15$: CMPL CSMQ_N, ESMQ_N 
g 13 OO1A BEQL 16$ 
6 0D RA PUSHL CSMQ_N 
ef 1 Ff 1A CALL #1, RELEASE_RECORD 
; 8 CO OO1AE 16$: ADDL #40, 
5 ; F3 00181 AOBLEQ #11, SQE_N, 138 
5A 3 dO bie 17$: MOVL (SQX), SOX_NS 
9 DD 00188 PUSHL + 
: g FB 01BA CALLS #1, RELEASE_RECORD 
9 A 4 01C1 MOVL $Q , SQX-N 
ad 1 001C4 BRid 
B DS OO1C7 18$: TSTL SMQ_N 
4 12 001C9 BNEQ os 
9 D4 OO1CB 19$: CLRL RO 
11 b01¢D BRB 
7E Oc AC 7D OOICF 20$: MOva SJH_N, =(SP) 
F 02 FB 001D3 CALLS #2, UPDATE_GETQUI_DATA 
E oc ac 7D OO1DA va SJH_N, (SP) 
57 0D B0108 PUSHL 
5B DD gore PUSHL ESMQ_N 
EF o% FB pies CALLS #4, START_EXECUTOR_JOB 
AC 1 D1 OO1E CMPL EShON, SAiQ_N 
12 13 poTED EQL 1$ 
5B DD OO1EF PUSHL ESMQ_N 
EF 91 FB OO1F1 CALLS #1, READ_RECORD 
B DD borFs PUSHL MQ_N 
ef 01 FB OO1FA CALLS #1, REWRITE_RECORD 
0 01 DO 00201 21$: MOVL #1, R 
58 57 DO 00204 22%: MOVL R7, R11 
04 00207 ET 
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JOBCTL.SRCIJSCHEDULER.B52; 2 


Sea nt teen Eset SBN WBa 


“ 


' FUNCTIONAL DESCRIPTION: 

This routine searches for pending jobs from a specified generic or 
poatees Queue, or that can be executed on a specified executor queue, 
and stafts as many of these jobs as possible. 


INPUT PARAMETERS: 
SMQ_N - Record number of SMQ. 
- Pointer to SMQ. 


™ 
MOODNOUE WN" OOODNG VE WN O0O@ 


' 
i 
i 
i 
i 
} 
} 
i 
0 ! IMPLICIT INPUTS: 
: NONE 
5 : ! OUTPUT PARAMETERS: 
5 84 : NONE 
5 tH : 
5 86 ! IMPLICIT OUTPUTS: 
5 887 : NONE 
Se 888 : 
5 889 ! ROUTINE VALUE: 
$2 890 : NONE 
5 891 : 
$36 ! SIDE EFFECTS: 
9 : NONE 
894 ! 
$92 feo 
| 
397 
898 
344 s REF BBLOCK; ! Pointer to SMQ 
901 CONTINUE ! True if loop to be continued | 
908 SQH MODIFIED, i True if SQH modified | 
90 PRED_MODIFIED, ! True if predecessor modified 
904 LIST_HEAD: REF VECTOR, ! Pointer to gent ing list head 
905 SQH: REF BBLOCK, ' Pointer to SQH 
SJH_NP, ' Record number of predecessor of SJH 
90 SJH_P: REF BBLOCK, ! Pointer to predecessor of SJH 
90 SJH_N ! Record number of SJ 
90 SJH-NS, ! Record number of successor of SJH 
SJH: REF BBLOCK, ! Pointer to SJH- | 
QSMQ_N, ' Record number of joe's SMQ 
SMQ: REF BBLOCK; ! Pointer to job's SMQ 


If the queve is not available, fail immediately. 


if .SMaCSMQ$V_PAUSED) 
~ SMOC SMQS$V~PAUSING) 


OPP 
. SMQ$V"UNAVAILABLE ) 
. SMOCSMOQ$B~CURRENT_JOB_COUNT] GEQU .SMQCSMO$B_JOB_LIMIT) 


em ee ee ee ee ee ee a ed ed ed 
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3 3 1926 THEN 

; 89 1925 RETURN; 

; 894 19 § 

; 895 19 

3 538 19 8 PRED_MODIFIED = FALSE; 

; 89 19 SQH_MODIFIED = FALSE; 

; 898 1930 CONTINUE = TRUE; 
; 899 1931 2 SQH = READ RECORD(S JH_ NP = SQHSK_RECNO); | 
: 900 19 ¢ IF .SMOCSMO$V_BATCH 
; 901 19 THEN LIST_HEAD = SQHCSQHS$L_PENDING PATCH Listy 

; 90 1934 ELSE LIST-HEAD = SQHLSQHSL_PENDING_PRINT_LISTJ; 

; 90 1935 SJH_N = .LIST_HEAD(O); 

BO 
; 906 1938 ! Note that Sree ee START_EXECUTOR_JOB and FIND_AVAILABLE_EXECUTOR (which calls 

: 907 1939 ! START_EXEC ) can Fesult inthe job being completed and its job record 

; 908 1940 ! being put on eRe free List instead of the current List for the executor geen, 

; 909 1941 ' This happens if the SCREPRC system service fails (for example when no PC 

; 910 1308 ' slots are available). When this happens the job record already has been 

; at3 ah released and it should not be Pour ttten. 

3 338 1945 WHILE .SJH -N NEQ 0 AND .CONTINUE DO 
: 914 94 BEGIN 

; 915 194 SJH = Sun RECORD(.SJH_N); 

: 916 1948 i. “SIN SJASL_QUEUE *LINK]® EQL 0 THEN EXITLOOP; 

: 917 1949 » SJHESYMSL_LINKJ; 

: gig 1950 

3; 919 1951 4 BEGIN 

: 920 1326 4 IF .SMOCSMQ$V_GENERIC_QUEUE] OR .SMQCSMQS$L_ASSIGNED_QUEUE_LINK] NEQ 0 

: 351 1953 4 THEN 

3; 9 ; 1954 5 BEGIN 

; 92 1955 5 IF .SJHCSJH$SL_QUEVE_LINK] EQL .SMQ_N 

3 ase 1956 5 THEN 

; 925 1957 5 IF FIND_AVAILABLE_EXECUTOR(.SMQ_N, .SMQ, .SJH_N, .SJH) 

; 926 1958 5 THEN 

3; 927 1959 6 BEGIN 

: 928 1960 6 SMOCSMQ$W_PENDING_JOB_COUNT] = .SMQCSMQ$W_PENDING_JOB_COUNT] - 1; 

3 44 1961 6 TRUE 

; 930 1206 6 END 

3; «931 19635 5§ ELSE 

; 236 1964 5 FALSE 

; 93 1965 ELSE 

3; 934 1308 FALSE 

: 935 196 END 

3; 9 1968 4 ELSE 

3; 937 5 3 5 BEGIN 

: 938 1970 QSMQ = .SMQ 

; 939 1971 QSMQ ene = <SJHESJHSL Sus LINK]; 

3; 940 1976 IF .OSM -SMQ THEN QSMQ = READ -RECORD(.QSMQ_N); 

: 941 197 : IF EXECUTOR" NACCEPTS” NOB. QSMQ_N, .QSMQ> .SMQ_N, .SMO, <SJH JN, .SJH) 
: ate 1974 THEN 

; 94 1975 6 BEG! 

3 9446 1976 6 QSM Rat smosy_ PENDING JOB COUNT] = .QSMQCSMOSW CEN ING. JOB_COUNT] = 1; 
3: 945 1977 6 IF .QSMQ_N-NEQ .SMO_N THEN REWRI‘E RECERDS (.0SMQ_N 
3; 94 1978 6 START EXECU TOR JOB( sna N, .SMQ, .SJH SH H); 
94 1979 6 IF SROLSMOSB CURRENT JOB. COUNTS geau" Nema Sma$B_JOB_LIMIT) 

; 948 1980 6 THEN CONTINUE = FALSES 
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14-Sep- 
9 981 TRUE 
: 388 9 ; END 
2 i 9 ELSE 
; 984 BEG! 
9 985 IF ,QSMQ_N NEQ .SMQ_N THEN RELEASE_RECORD(.QSMQ_N); 
i 9 6 FALSE 
OR wo 
END 
$3) ie §eeae 
959 991 BEGI 
960 936 IF .SJH_NP EQL SQH$K_RECNO 
362 392 THEN GIN 
308 995 LIST tay: = a H 
964 996 § EQL 0 THEN Si tst_wEADC1) = 0; 
= U 
965 99 SQH “MODIFIED TRUE; 
367 399 ELSE 
968 000 
969 001 SJH_PCSYMS$L_LINK] = .SJH_NS; 
970 90¢ IF =SJH_NS EQL 0 
97 004 BEGIN 
LIST_HEAD = .SJH_NP; 
378 005 T (1) 
974 00 SaH MODIFIED = TRUE; 
975 00 
= U 
976 PRED FRODIFIED TRUE; 
977 END; 
978 
979 


! Guard ogetagt the possibility of having the job record alread 
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008 
009 
a 
980 big ' released and put on the queue header free List instead of it being 
HF placed at the end of the current List for the executor queue. 
oar Bie if NOT -FLAGSCFLAGS_V_INVALID_SJH] THEN REWRITE_RECORD(.SJH_N); 
985 017 ELSE 
986 018 
+ Hf 312 IF .SJH_NP NEQ SQHSK_RECNO 
989 031 IF yA bE Aa MODIFIED) 
990 0 ¢ THEN REWRITE_RECORD(.SJH_NP) 
991 0 ELSE RELEASE “RECORD(.SJH_NP); 
99 024 SJH WP = .SJH_N; 
99 025 SJH_P = .SJH; 
994 0 $ PME 
995 0 SJH_N = .SJH_NS; 
9 028 END; 
89 8 9 
998 0 
999 031 IF .SJH_NP NEQ SQHSK_RECNO 
1 0 ¢ THEN 
1001 IF — MODIFIED 
1 § 4 THEN” A hey tS. ECORD(.SJH_NP) 
: 3 5 ELSE RELEASE_RECORD(.SJH_NP); 
1008 039 
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14-Sep- JOBCTL.SRCISCHEDULER.852;2 
3) 3 IF .SQH_ MODIFIED 
$ 3 THER REWRITE RECORD (SQH$K_RECNO) 
3 : re oe." RELEASE _RECORD (SQHSK_RECNO); 
; INFO#250 L1:2001 
; Referenced LOCAL symbol SJH_P is probably not initialized 


OFFC 00000 ENTRY FAND PENDING JOBS, Save R2,R3,R4,R5,R6,R7.- ; 

R8,R9,R10,R1T ; 

5 10 C2 000 SUBL2 #16, §P : 

08 AC 00 0000 MOVL SMQ. R2 : 

5 10 hs i: 0009 MOVAB VgcR2) RO : 

01 60 0 Fi 9000 BBC a2, (RO), 1$ : 
01 60 03 Fi 3 1$: BBC #3, (RO), 2$ : 
01 60 06 F| 9001 2$: BBC #6, (RO), 3$ : 
4 00018 RET : 

01 01 AO c9 s0b25 3$ BLBC 1(RO), 4$ 

01 60 09 F| 0021 4$: BBC #9, (RO), 5$ : 
4 00025 RET ; 

01 60 0B F| 000 6 S$: BBC #11, (RO), 6$ : 
4 0002A RET : 

0116 «C2 0115 ¢2 91 000 8 6$: CMPB 377(R2), 278(R2) : 
Site > pes : 

6E * 090 5 7$: CLRQ  PRED_MODIFIED ; 

08 AE 01 00 00037 MOVL #1, CONTINUE s 

. gate : 

000000006 EF 01 FB 00040 CALLS #1, READ_RECORD : 

06 Oc A2 £9 00047 BLBC eine), 8$ : 

54 54 AO %¢ 00048 NOVAB B4(R > LIST_HEAD : 

54 5c AO 3 00051 8$ MOVAB 92(RO), LIST_HEAD : 

sox HE BB S88ER MH REM Sash fgg) sa : 

57 D5 0005C 108 TSTL SJH™N- : 

04 1 O05 BEQL 46s : 

03 08 AE é 6 BLBS CONTINUE, 12$ ; 

0106 1 00064 11$:  BRW 28$ : 

DD 00067 12$:  PUSHL SJH_N : 

000000006 Ef 1 FB 0069 CALLS #1, READ_RECORD : 

5 0134 20 p O78 MOVE RO ec Sot) RO 
CORRE OB Be ste : 

05 OD A2 03 EO 0007 BBS #3 1$(R2)7 13$ : 
2c. C«A p 9 ; TSTL  44(R2) ; 

58 6 D 7 138: Parc AG R8 

7: 12 $0 A ——~«*«é«éBNESG m6 : 


PUSHR #*M<R3,RB> 
MQ_N 


a Bi 
SCHEDULER Job scheduler 16- sep 984 9 AX-11 Bliss-32 V4.0- Page 
soecobt eRe a a pe he hs ae ie PP of 3 
6 DD C PUSHL $JH : 1957 
0084 . BB s PUSHR #eM<R2,R7> : 
FDSF cE 4 i 34 CALL #4, eons: as : 
0102 2 : 9 DECW ; gcR ) + 1960 
A 11 OOOA BRB 9 : 
53 : 00 A2 14$:  MOVL  R2, QSMO + 1970 
9 D OA MOVL RO. QSMQ_N + 1971 
Q D4 OOOA CLRL + 1972 
58 D AA CMPL OSM0_N, R8 : 
1 AD BEQL ©«-«15$ : 
BD 0081 Pus asna N : 
000000006 a4 ! FB 9085 CALLS a, - READ. RECORD : 
6 DD 9080 15$: PUSHL ats + 1973 
0084 BB O0BF PUSHR #*M<R2,R7> : 
9 Db Soc? PUSHL QS : 
FBDS «CF 06 FB 00¢9 CALLS #6, XECUTOR_ACCEPTS_JOB ; 
D 9 E9 OOOCE BLBC ; 
0102 ¢ 87 0001 DECW 258¢QSMa) + 1976 
09 B €E9 00005 BLBC = R11, 16$ + 1977 
59 DD 00008 PUSHL QSMQ_N ; 
000000006 EF 01 FB OOODA CALLS #1, REWRITE_RECORD : 
56 DD OO0E1 16$ PUSHL : 1978 
0084 8F BB 000E3 PUSHR #*M<R2,R7> : 
58 DD O00E7 PUSHL R ; 
000000006 EF 04 FB OO0E9 CALLS #4 START 95% ECUTOR_JOB : 
0116 «2 0115 ce 1 SOF O CPB e77(Re 8(R2) + 1979 
08 AE D4 000F9 CLRL CONTINUE + 1980 
OE 11 900K ¢ BRB 19$ : 1979 
42 5B €9 OOOFE 17$:  BLBC R11, 24$ + 1985 
59 DD 00101 PUSHL QSMQ_N ; 
000000006 EF y Fe 0108 “ot CALLS a" RELEASE_RECORD : 
01 5 D1 0010C 19$: § CMPL JH_NP, #1 : 1992 
OF 12 9010F BNEQ ; 
64 A 00 00111 MOVL § SJH_NS, (LIST_HEAD) > 1995 
03 12 00114 BNEQ : 1996 
04 Ad D4 118 CLRL 4(LIST HEAD) ; 
04 AE 1 v0 119 208 MOVL SQA_MODIFIED : 1997 
1 11D BRB 4} > 1992 
OC BE 5A DO OO11F 21$: = MOVL SiH NS, @SJH_P : 2001 
08 12 001 BNEQ : 200 
04 AG D0 001 MOVL  SJH_NP, 4(LIST_HEAD) > 200 
4 AE 1 00 001 MOVL #1, ~SQH_MODIFIE + 2006 
ry: 1 D0 1 : 338 MOVL #1. PRED MODIFIED : 200 
2F 00000000° EF 5 EO 0 a BBS a FL LAGS, 27$ : 201 
00000000G_ EF 1 re 13A CALLS #1, REWRITE_RECORD ; 
4 1 gia) BRB 7$ + 1950 
01 5 0100143 248:  CMPL JH_NP, #1 > 2019 
18 1 0146 BEQL 6s ; 
0B 6E 00 €5 0014 BBCC #0, PRED_MODIFIED, 25$ > 2021 


9 4 
SCHEDULER Job scheduler 1b-se -1984 00:25:09 AX=11 Bliss-32 V4.0-74 Page 37 ef! 
vou 1 30071 38¢ 99593398 JOBCTL.SRCISCHEDULER.B32;2 ’ 3 
5 pd 0014¢ PUSHL SJH_NP 3 2022 
000000006 EF FB F CALLS 4 “REWRITE RECORD : — | 
DD 13 25$ PUSHL SJH_NP : 2023) 
000000006 gf } FB 001 9 CALLS #1, RELEASE RECORD ; 
5 DO 00160 268 MOVL § SJH_N, SJH_AP > 2024 | 
oc Ag 6 DO 0016 MOVL  SJH> SJH_P > 2025. 
5 A p 16 27$: MOVL H_NS, SJH_N 3 2027 
rege 16A BRW + 1945 
01 5 D 1 288: CMPL JH_NP, #1 : 2031 
17 13 001 BEQL ; 
08 6 £9 0017 PRED_MODIFIED, 29$ : 2038 
DD 0017 PUSHL _AP + 2034 
000000006 EF 1 re 17 CALLS #1, REWRITE_RECORD ; 
9 11 0017 BRB 30$ F 
5 DD 1 29%: PUSHL SJH_NP ; 2035 
000000006 EF 01 Fs 1 CALLS #1, RELEASE_RECORD ; 
A 04 AE €9 00189 30S: LBC  SQH_MODIFIEB, 31$ : 2038 
gi DD 01 D PUSHL #1 : 2039 
000000006 _ EF 1 FB 0018F CALLS #1, REWRITE_RECORD : 
04 00196 RET ; 
01 DD 00197 318 PUSHL #1 + 2040 
000000006 EF 01 FB 00199 CALLS #1, RELEASE_RECORD ; 
04 001A0 RET > 2041 
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GLOBAL ROUTINE JOB_SCHEDULING_POLICY(SMQ,SJH_1,SJH_2)= 
'e+ 
' 


' FUNCTIONAL DESCRIPTION: 
This routine implements the default job scheduling policy. 


INPUT PARAMETERS: 
SMQ - Pointer to SMQ. 


SJH_1 - Pointer to first SJH. 
SJH_2 - Pointer to second SJH. 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 


True if SJH_1 should execute before SJH_2; false otherwise. 
SIDE EFFECTS: 
NONE 


BEGIN 

MAP 
SMQ: REF BBLOCK, ! Pointer to SMQ 
SJH_1: REF BBLOCK, ' Pointer to SJH 
SJH_2: REF BBLOCK; ! Pointer to SJH 


In this implementation the batch queve is ordered by increasing submission 
! time within decreasing priority; the print queue is ordered by increasing 

! submission time within decreasing file size within Socreas tne priority; but 
! if /SCHEDULE=NOSIZE is specified, file size is not considered. 


,SJH_1CSJHSB_PRIORITYI GTRU .SJH_2CSJHSB_PRIORITY] 

T 
e 
N 


E 
RUE 
SE IF .SJH_1CSJHSB_PRIORITY] EQL .SJH_2CSJHSB_PRIORITY 
IF .SMOCSMQ$V_BATCH] OR NOT .SMQCSMQ$V_JOB_SIZE_SCHEDULING) 
If TIME GTRU(SJH, 2CSJHSO_TIME], SJM_1CSJHSQ_TIME) 
TRUE 
ELSE 
FALSE 
ELSE 


10 SdH CS INGL JOB SIZE) LSSU .SJH_2CSJH$L_JOB_SIZEJ 
TRUE 


‘ 
' 
i 
i 
i 
IF 
TH 
EL 
TH 
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; 1083 11) ! GLOBAL ROUTINE ENQUEVE_JOB(SJH_N,SJH; RESULT,ESMQ): L_OUTPUT_2 NOVALUE= 

: 10 : 118 1 t+ | 
; 1084 1144 1! 
3; 1085 115 1 ! FUNCTIONAL DESCRIPTION: ; 
; See 118 ! } his routine enqueves a newly available job on an appropriate queue. 

; 1088 118 17 ! INPUT PARAMETERS: 

; 1089 17 1 SJH_N - Record number of SJH. 
: 1090 120 1! SJH - Pointer to SJH. 

: 1091 131 7 | 
g 196 1 ¢ 1 ! IMPLICIT INPUTS: 

; 109 1 1! NONE 

: 1094 124 1! 
3; 1095 125 1 ! OUTPUT PARAMETERS: 
: 1096 1 § ; | RESULT - Result of the enqueue. F - 

3; 1097 1 ,! ESMQ - Pointer to executor SMQ, if job is executing. 
; 1098 2128 1! 
; 1099 129 1 ! IMPLICIT OUTPUTS: 

: 1100 130 1! NONE 
3; 1101 131 1! 
3 1108 $136 1 ! ROUTINE VALUE: 
3 1103 2133 1! NONE | 
3; 1104 2134 1! 

3 1105 2135 1 ! SIDE EFFECTS: 
: 1106 136 1! NONE 
3 1107 ta Be 
3; 1108 2138 1 !-- 

: 1109 2139 1 

: 1110 2140 2 BEGIN 
31111 2141 2 MAP | 
3 BB $1e6 2 SJH: REF BBLOCK; ' Pointer to SJH 

3111 21435 2 LOCAL 

31114 gist § SQH: REF BBLOCK, ' Pointer to SQH 

3 1115 145 SMQ_N, ' Record number of SMQ 

> 1116 2146 2 SMO? REF BBLOCK, i Pointer to SMQ 

3; 1117 2147 2 SJH_NP, ' Record number of predecessor SJH 
3 1118 2148 2 JH_P: REF BBLOCK, ' Pointer to predecessor SJH 
3; 1119 2149 2 SJH_NS, ! Record number of successor SJH 
; 1120 2150 2 SJH_S: REF BBLOCK, ! Pointer to successor SJH 
3; 1121 2151 2 STATUS; ! Status return 

; 1158 $126 2 

3 112 2155 2 , ; 
3 Hy 2154 ! If this SJH is invalid (can only occur due to file corruption) then 
3 1125 2155 ! return a spurious COMPLETE as result, thereby evaporating the enqueue 

: 1186 $128 request. Note that file is still corrupt. 

3; 1128 158 IF .SJHCSJHSL_QUEVE_LINK] EQL 0 

; 1163 159 THEN 

: 1130 160 BEGIN 

3 113) 161 RESULT = ENQ_K_COMPLETE; 

311 4 1o¢ RETURN; 

t 113 164 —_ 

3 1135 Hb : If there are services outstanding for this job, cancel them. 

3; 1137 189 IF .SJHCSJH$V_ABORTING) 


<n 
£5 


ee a BB 2 DB BD ds dS dd 


Page 41) 


SCHEDULER Job scheduler bese -1984 00:25:0 0-74 
Mave di pr1oBG 99:8 CHEDULER.B32;2 ai). 


14-Sep-19 7:1 


+o 


AX-11 Oi fege ze V4.0-7 
JOBCTL.SRCJS 


; 1138 168 OR .SJHCSJHSV_STARTING) 

; 1329 176 SCAN_INCOMPLETE_SERVICES(ISRV_K_PURGE_SJH, .SJH_N); 

3 1106 \7¢ 

3 1307 \t? } If there is a pending requeve for this job, execute it. 

3 1145 175 IF .SJHCSJHSV_REQUEUE) 

; 1146 176 THEN 

3 114 17 BEGIN 

> 1148 178 IF ,SJHCSJHS$V REQUEUE HOLD THEN SJHCSJHSV_HOLDING] = TRUE; 
> 1149 179 SJHCSJH$SB_PRIORITY) =~.SJHCSJH$B_REQUEUE_PRIORITYJ; 
; 1150 180 IF “SIHES IHS REQUEUE_QUEUE LINKI NE 
3 1151 181 THEN SJHCSJH$L_QUEVE_LIAK] = .SJHCSJHSL_REQUEUVE_QUEUE_LINK]; 

: 128 \3¢ ND; 
3: 115 18 

3; 1154 184 

; tee 193 Finish initializing the completed job. 
3 1157 187 IF ,SJHCSJHS$V EXECUTING) THEN SJHCSJHSV_RESTARTING] = TRUE; 

3 1158 188 SJHCSYMSL_LINR] = 0; 

3 1159 189 2 SJHCSJH$V_ABORTED] = FALSE; 
> 1160 190 2 SJHCSJHSVABORTING] = FALSE; 

> 1161 191 2 SJHCSJHSVIEXECUTING] = FALSE; 

; 1168 198 SJHCSJHSV_FILE_ STARTING) = FALSE; | 
3 116 19 SJHCSJH$V_0 = FAL 
3 1164 e138 SJHCSJH$V_REQUEUE J 
3 1165 195 2 SJHCSJH$SV~REQUEUE_HOLD) = FALSE; 

: 1166 196 SJHCSJHSV_STARTING] = SE; 

3 1167 197 2 SJHCSJHSV_SYSTEM FAILURE) = FALSE; 
3 1168 198 SJHCSJH$B_REQUEUVE_PRIORITY] = 0; 

3 1169 2199 2 SJHCSJH$L_REQUEUE QUEUE_LINK] = 0; | 
3 1170 2200 2 SJHCSJHSL_EXECUTOR_PIDJ™= 0; 

> 1171 2201 

; 117 g20¢ 

3; 117 2 !' Read the SMQ record. 
3 (1174 204 ! 
3 1175 205 SMQ = READ_RECORD(SMQ_N = .SJHCSJHSL_QUEUVE_LINK]); 
3; 1176 206 

: 1177 07 
3 1178 08 IF .SJHCSJH$V_HOLDING] 

3 1179 09 2 OR .SJHCSJHSV_REFUSED) 

3 1180 210 2 OR .SJHCSJHSV_RETAINED) 

; 113) ay THEN 

iis Shp Obes 

311 214 ! Job specified with /HOLD, was retained after execution, or was refused. 

; By 3 1? Enqueuve to the hold queue for the specified queue. 

3 1187 7 IF .SMOCSMOQ$L_HOLD_LIST] EQL 0 

; 1189 15 SMOCSMQSL_HOLD_LIST] = .SJH_N 

3; 1190 0 SE 

3 1191 1 4 BEGIN 

; 1198 ¢ 4 SJH_P_= READ RECORD(SJH NP = .SMQCSMQ$L_HOLD_LIST_END)); 

3 119 4 SJH-PCSYM$L_CINK] = .SJA_N; 

3 1194 4 6 REWRITE_RECORD(.SJH_NP); 
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smorSnnse HOLD_LIST END = .SJH_N; 
REWRITE _RECORDT. SMQ-N 
RESULT = ENQ_K_HOLD? 
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it 23 IF TIME_GTRU(SJHCSJHSQ_AFTER_TIME], CUR_TIME) 
BEGIN 
Job specified with /AFTER. Enqueue to the timer queue. 
SQH = READ_RECORD(SJH_NP = SQHSK_RECNO); 
SMOCSMO$W_TIMER_JOB_COUNT) = . SMOCSMOSW_ TIMER_JOB_COUNT] + 1; 
: Check for the special case that the job goes at the end. 
IF .SQHCSQHSL_TIMER_LIST_END] NEQ 0 
THEN 


EGIN 
H_S = READ_RECORD(SJH 


PPR XQ_EXR_AEX DMA & BB BPE EEE PAW NIInornoronor 


; : 5 

; 5 

; § 

: ° 

: 1 : 

3 1 4 

3 ; 5 

i} 

31 9 

3 1 0 

: ; 

:1 

2 st 

: 1 4 

31 $ 5 4 SJ NS = .SQH SaHsi _TIMER_LIST_ENDJ); 

3 13 § 3 ? (is TIME_ GEQUTSINE SHS _AFTER_TIME H-SCSJHSQ_AF TER_TIMEJ) 

:1 2250 5 

: 1 251 5 hy SC SYMsL LINK] = .SJH 

3 1 2 ; 5 SQHTSQHSL TIMER LIST ENDI = .SJH_N; 

: 1 é 5 REWRITE _RECORD(“SJH_AS); 

; 12 4 5 REWRITE RECORD(.SMQ-N | 
31 255 5 REURITETRECORD(SOHSR RECNOD ; 

; \§ $5 6 5 RESULT = ENQ_K_TIMER; 

31 257 5 RETURN; 
: i3 $$ § : ens , 
13 $260 3 } 
: \S3¢ 23 g 3 Search down the timer List looking for the insertion point. 

: 1582 $$ 4 ; SJH_NS = SOHCSQHSL 11 TIMER_LIST); 

3 \$3? 22 ? ? ona NS 

+ 1237 g 7 & READ_RECORD(. 
3 Hi 368 ; ipo rine_ GTRUTSJH_SCSJ rer. TIME], SJHCSJH$Q_AFTER_TIME)) 

: 1240 70 § BEGIN 

3 1343 Hs 2 BPs cect NS); 

+ 124 73 4 END; 

: 1244 7% 4 IF .SJH_NP NEQ SQHSK_RECNO THEN RELEASE RECORD(.SJH_NP) ; 

: 13¢e ree SHIP = 30H Sr 

; : 44 , 4 PINS ® Sun SCSYMSL_LINK); 

t 1249 8 : 

3; 1250 $80 

; 1251 81 ' Enqueue the job. 
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! 
: ; if .SJH_NP EQL SQHSK_RECNO 
—_, 


BEAL SOHSL TIMER_L’ “] = 
Scant IMCREGIDY= 36. "AFTER wtbts: 


DAYTIR=SJHCSJNSa _LAFTER_TIME, 
ASTADR=AF TER 
REQIDT= JBC K “AFTER. 1DT); 
IF NOT .STATUS 


' Job cannot be started now because no executor is available. Enqueue 
; the job to the pending queue according to the established policy. 


SMOCSMQ$W_PENDING JOB_COUNT] = .SMQCSMQ$W_PENDING_JOB_COUNT] + 1; 
SQH = R sas be ORDTSJH_NP = SQH$K_RECNO); 


IF “ees BATCH 
THEN LIST_HEAD = SQHCSQHSL_PENDING_BATCH_LIST 7 
ELSE atipe HEAD = SQH[SQHSL-PENDING_PRINT_LISTJ; 


4 4 
8 
9 
60 90 
61 91 
6¢ 9 
6 9 THEN 
64 94 SIGNAL (JBCS$_SETIMR OR STSSK_ERROR, 0, .STATUS);: 
65 95 END 
67 9 BEG 
68 98 SJH_PCSYMS$L_LINK] = .SJH_N; 
69 99 REWRITE_RECORD(.SJH_NP); 
70 00 END; 
71 01 
re 30 
7 30 SJHCSYMSL LINK] . 
74 304 IF .SJH_NS EQL 0 Tien "santsowse _TIMER_LIST_END] = .SJH_N; 
275 305 REWRITE “RECORD (. N 
276 306 REWRITE RECORD ($OHSK RECNO); 
377 307 RESULT = ENQ_K_TIME 
78 308 
279 309 
380 310 
81 11 
282 g31¢ BEGIN 
8 231 IF FIND_AVAILABLE_EXECUTOR(.SMQ_N, .SMQ, .SJH_N, .SJH; ESMQ) 
284 314 THEN 
285 15 BEGIN 
286 2316 REWRITE_RECORD(.SMQ_N); 
287 2317 RESULT = ENQ_K _CURRENT: 
288 3318 END 
89 319 ELSE 
290 $320 BEGIN 
91 2321 LOCAL ; : 
$36 $356 LIST_HEAD: REF VECTOR; ! Pointer to pending List head 
94 4 
95 
96 
97 
98 
99 


: Check for the special case that the job goes at the end. 


; 1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
\ 
1 IF .LIST_HEADC1) NEQ 0 
1 THEN 
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31 39 BEGIN : 
3 1 19 40 SJH_S = READ_RECORD(SJH_NS = .LIST MEACI3) ; : 
; 13) 4 IF JOB_SCHEDOLING_POLICY(.Sma, .SJA_S, .SJH) ; 
3:1 \3 ag THEN : 
{ihe ra SJH_SCSYMSL_LINK] = .SUH_N 
P =. ” ° 
> 1315 45 6 LIST mattap = .SJH.N; ~ ; 
31 16 46 6 REWRITE _RECORD(.SJH-NS); : 
7131 4 REWRITE-RECORD(.SMQ-N); : 
:1 18 48 6 REWRITE-RECORD(SQHSR_RECNO); : 
3 131 49 6 RESULT = ENQ_K_PENDING; : 
: 1320 » 9 RETURN; ; 
; } 1 ? ne END; é 
3 3 § 3g 4 3 
: 1324 54 OG : 
; ' 5 22 2 : Search down the pending List looking for the insertion point. : 
: 1 5 3$ 4 SJH_NS = .LIST HEADLOJ: : 
3; 1328 58 4 ence -SJH_NS REQ 0 | : 
1389 G0 SUH.S. = READ_RECORD( .SJH_NS) | 
3; 1331 61 3 if "108. SCHEDULING. POLICYT.SMQ, .SJH, .SJH_S) ; 
3: 1 3 306 5 ; 
31 63 6 EN REGIN : 
31 64 6 RELEASE RECORD(.SJH_NS); 3 
; ; 5 65 A aa TLOOP; | : 
31 369 IF .SJH_NP NEQ SQHSK_RECNO THEN RELEASE_RECORD(.SJH_NP); ; 
; 1338 368 5 SJH_NP = 33 : ; 
; 1339 9 5 SJH_P = | ; 
: 1340 70 5 SJH"NS = att) SCSYMSL LINK); | ; 
+ 1341 71 4 END; ; 
3 1 ¢ 72 & $ 
3 1 7 4 : 
3 1344 7% & ! Enqueue the job. ; 
3 1345 75 & i 3 
71 g 76 4 IF .SJH_NP EQL SQH$K_RECNO | : 
: 1 77 4 THEN : 
> 1348 78 4 LIST_HEADCO) = .SJH_N 3 
: 1349 379 4 SE | ; 
; 1350 380 5 act : 
3; 1351 381 5 H_PCSYMSL_LINK] = .SJH_N; ; 
: 1 8 2 § WRITE_RECORD(.SJH_NP); 3 
: } az 5 ¢ . : 
i 1386 Be SJHCSYMSL LINK] = SJH | 
Py 0 Th Py 
: 1 3$ 59 4 H_NS EQL 0 THEN cist -HEADC1) = .SJH_N; 3 
: 1358 88 4 deuait E-RECORD(.SMQ_N); 3 
: 1359 89 4 REWRITE CRE CORD (ZONK RECNO); : 
3: 1 90 4 RESULT = ENQ_K_PENDING; : 
; ' 1 14 oe D; : 
: 1 § 38 END; : 
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~EXTRN SYSSCANTIM 
sENTRY ENQUEUE_JOB, Save R2,R3,R4,R5,R6,R7,RB,RP 
UBL2 SP 


oO 
Ww 


FC 00 
08 cs § #8, 
4 98 AC 3 MOVL th RG 
0134 4 MOV gins), R2 
2 p5 00 TSTL (R2) 
4 12 0001 BNEG = *1$ 
SA 4 i 991 MOVL #4, RESULT 
5 10 AG . 0 16 1%: MOVAB 16(R4), R3 
04 ‘ 01 € 1A BBS wi, (R’), 2$ 
0c : oc £1 0 1 BBC wid, (R35, 3$ 
04 aC DD 00022 2$: PUSHL SJH_N 
0 DD 000 PUSHL #5 
000000006 EF ‘ FB 00 CALLS #2, SCAN_INCOMPLETE_SERVICES 
18 01 AS £9 000 g 3$: BLBC 1(R3), 58 
03 a 09 3 00 BBC #9, (R3), 4$ 
63 20 88 000 BISB2 #32, (R35 
017D C4 or7e C4 90 00039 4s: MOVB B2iR4), 381(R4) 
50 0138 4 09 9040 MOVL 12(R4). RO 
03 13 0004 BEQL 5 
62 g pd 90047 MOVL Rd. (Re) 
04 6 0 a 004A 5$: BBC #3. (R3), 6$ 
01 Ad 04 88 9004 BISB2 #4. 1(R35 
64 D4 00052 6$: CLRL (rd) 
63 5358 8F AA 00054 BICW2 #21339 (R3) 
O17 C4 94 00059 CLRB (Ra) 
0138 ¢4 D4 0005D €LRL 12(R4) 
0168 (4 D4 90061 CLRL 60(R4) 
04 AE 62 D0 00065 MOVL (R2), SMQ_N 
04 AE DD 00069 PUSHL SMQ_N 
000000006 EF gi FB 0006¢ CALLS #1, READ_RECORD 
: 0 D0 000 MOVL RO. SMQ 
5 04 AC DdO 00076 MOVL § SJH_N,_R9 
08 3 05 E0 007A BBS #5,7(R3), 7% 
63 OO7E TSTB = (R$) 
04 19 000 BLSS 7$ 
3A 63 08 E1 00082 BBC #11, (R3), 108 
78 A2 05 00086 7$: TSTL 120¢SMQ) 
06 12 00089 BNEQ $ 
78 A2 59 D 0088 MOVL R9, 120(SMQ) 
iD 11 O08 BRB 9$ 
58 7C =A2 =O 00091 8S: MOVL 124(SMQ), SJH_NP 
58 DD 0009 PUSHL H_NP 
000000006 _ EF Q1 FB 0009 CALLS #1,” READ RECORD 
bE 0D 909 MOVL 4, SJH 
00 BE 59 00 OOOA MOVL R9. aSJA_P 
58 DD OAS PUSHL  SJH_NP 
000000006 EF 01 FB OA CALLS #1, REWRITE RECORD 
C A2 9 DO OOOAE 9S: MOVL R9. 124(SMOT 
04 AE DD 0008 PUSHL SMQ_N 
000000006 ef or FB 008 CALLS #1, ~REWRITE_RECORD 
A 1 p ooB¢ MOVL #7. RESULT 
4 OB RET 
57 009C C4 DO O00CO 10$:  MOVL  156(R4), R7 
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soecot 18-38-1382 90:99:92 JOBCTL.SRCIJSCHEDULER.B32;2 at 
00000000" EF 57 D1 C5 CHL Ry CUR_TIME+4 : 
of HERS i. Bet : 
00000000° EF 0098 C4 pI 03 12$: CMPL F530), CUR_TIME : 
Fe é ye BLEGU 17 : 
58 v0 af 13$: BOVE a. SJH_NP : 2238 
000000006 Ef 1 FB O€ CALLS #1, READ_RECORD : 
5 1) OEA MOVL RO, SQH : 
010¢ C2 B86 OOOED INCW é 8 «Sma : 2239) 
6C (OA ¢ 0 Fi TSTL (SQH) + 2266 
% F4 BEQL 15$ : 
56 6C AS 00 000F6 MOVL  108(SQH), SJH_NS + 2247 
56 DD OOOFA PUSHL SJH_N : 
000000006 Ef or FB OOF CALLS #1, READ_RECORD ; 
3 0 pO 0010 MOVL RQ, 5 : 
009c §= 3 57 D1 00106 CMPL 7, 156TSJH_S) + 2248 
0B 1A 00108 BGTRU 148 : 
1E 12 00100 BNEQ 15$ ; 
0098 ¢3 0098 C4 D1 0010F CMPL  152(R4), 152(SJH_S) : 
15 1F 00116 BLSSU-15$ ; 
63 04 AC 0000118 14%:  MOVL SJH_N, (SJH_S) > 2251 
6C AS 04 AC 00 0011C MOVL § SJH™N, 108(SQH) : 325¢ 
000000006 EF 34 PB boi3s CALe #1 “REWRITE. RECORD ; = 
009A 31 01 A BRW 23$ ¥ > 2254 
56 68 AS 09 012D 15$: MOVL  104(SQH), SJH_NS > 2264 
42 1300131 16$: BEQL 208 + 2265 
56 DD 00133 PUSHL SJH_NS + 2267 
000000006 Ef 01 FB 0135 CALLS #1, READ RECORD ; 
3 29 dO 0013C MOVL RO, SJH_S $ 
57 009c C3 «~+D1 0013F CMPL  156(SJH7S), R7 : 2268. 
} 
0B 1A 00144 BGTRU 17$ : 
14 12 00146 BNEQ 18$ ; 
0098 C4 0098 C3 D1 00148 CMPL  152(SJH_S), 152(R4) : 
0B 18 0014F BLEQU 18$ : 
56 DD 00151 17$:  PUSHL SJH_NS > 2271 
000000006 EF 01 FB 00153 CALLS #1, RELEASE_RECORD : 
19 11 O0O15A BRB 208 > 227 
01 58 Di 0015C 188: CMPL SJH_NP, #1 7 2274 | 
08 13 0015F BEQL 198 ; 
000000006 EF ; 3 bes CALS 31 -RELEASE RECORD ; 
4 : fi Siea 19$: MOVL SJH_NS, SJH~NP > 227 
bE 53 D0 00160 MOVL § SJH™S, SJH > 207 
56 63 ot if MOVL (SuR_S), SJH_NS : 3e7 
01 ‘ D1 00175 208: §CMPL SuH_NP, rh > 228 
if} 0178 BNE 1$ : 
68 AS 9 p 17A MOVL R9, 104(SQH) 5 $s6 
000000006 6b 8) FB Oolet Mavs | 92° SYSSCANTIN toes 
: $f D 001 PUSHL Hi > 2291 
FBOA CF F 18A PUSHAB AFTER_AST 3 
0098 ch 9F 001 E PUSHAB 152(R&) : 
E D4 0019 CLRL 0s = (SP) : 


10 
SCHEDULER Job scheduler rhage =1984 00:25:09 AX-11 Bliss-32 v4.0-74 Page 47 
yoacobt 12-808-1 3b 90:93:92 JOBCTL.SRCJSCHEDULER.B32;2 aD 
000000006 4 Ff 194 CALLS #4, SYSSSETIMR ; | 
$8 0 £8 136 BLBS STATUS, 355 + 2292 
DD 0019 PUSHL STATUS + 2294 
—E D4 OO1A CLRL = : 
00048454 8F DD OOIA PUSHL a 6026 ; | 
000000006 00 ; Fe 148 CALLS #3, LIBSSIGNAL onan! 
00 «BE 9 DO 00181 21$: MOVL R9, @SJH_P : 2398 
8 DD 183 PUSHL SJH_N + 2299 
000000006 EF if 1B CALLS #1, REWRITE_RECORD ; 
64 ° p H 3 228: Roy, Syu_NS. (R4J g $03 | 
6C AS 5 D ie MOVL R9, 108(SQH) : 
04 AE DD OO1C7 238: — PUSHL Y : 2305 
000000006 _ EF or FB OO1CA CALLS #1, REWRITE_RECORD : 
1 DD 00101 PUSHL # t 2306 
000000006 _ EF o1 FB 0103 CALLS #1, REWRITE_RECORD : 
A 3 BO O1DA MOVL #3, RESULT : 3307 
54 DD OIE 24$:  PUSHL 4 : $3i$, 
0204 8F BB OO1E PUSHR #*M<R2,R9> : 
10 AE DD OO1E4 PUSHL SMQ_N : 
FA23 CF 04 F 001E7 CALLS #4, FIND_AVAILABLE_EXECUTOR ; 
OD 0 £9 OO1EC BLEC = RO, 25$ ; | 
04 AE DD OO1EF PUSHL SMQ_N : 2316) 
000000006 _ EF 01 FB Ore CALLS #1, REWRITE_RECORD ; 
AB Bre eet est ay 
0102 ¢2 86 goire 25$: INCW  258(SMQ) : 2328) 
58 01 00 9200 MOVL #1, SJH_NP 2329) 
01 DD 0020 PUSHL #1 : 
000000006 EF 01 FB 00205 CALLS #1, READ_RECORD : | 
5 0 dO 0020¢ MOVL R0 SQH : 
06 0c Ae 3 0020F BLBC 12(SMQ), 26$ : 2330 
54 OC«A : 00 13 MOVAB 84(R5), LIST_HEAD > 2331 
04 11 0021 BRB gs ; 
57 5c 36 ASE 00219 268 MOVAB 92(R5), LIST_HEAD ; 2332 
04 Aa? D5 00210 278 TSTL 4 (LIST HEAD) : 233 
2c 13 00220 BEQL 28% ; 
56 04 A? DO 6 2 MOVL  4(LIST_HEAD), SJH_NS > 2340 
56 DD 6 PUSHL  SJH_NS ; 
000000006 gf gi FB 0 CALLS #1, ~READ_RECORD F 
’ 0 8B at a Oey ye : 2341, 
FD7F OCF FB o CALLS #3, JOB SCHEDULING POLICY ; | 
\¢ E 9 BLBC RO, 28$ 3 
6 09 C MOVL  R9. (SJH_S) ; 3344 
04 A? 39 D F MOVL RO. 4(LIST_HEAD) : 2 45 | 
6 DD 43 PUSHL SJH_NS : 2346) 
000000006: EF 01 FB 4 CALLS #1, REWRITE_RECORD ; 
61 1 4C BRB 35§ > 2347 | 
56 7 06 4f 388: MOVL (CIST_HEAD) , SJH_NS > 2357 | 
7 9$: BEQ 3 : 2358 
6 oD 3 PUSHL  SJH_NS : 2360 
000000006 Ef 1 FB CALLS #1, ~READ_RECORD ; 
: 3 bp 0095F Pusht  SyA_S : 2361 


SCHEDULER Job scheduler 1b-5¢ $ep-1984 9 AX-11 Bliss-32 V4.0-74 
Soacbot 1 ats 7 99: 3; 9? JOBCTL.SRCISCHEDULER.B32;2 
14 6B PUSHR #*M<R2,R 
FOSO.—O «CF F } CALLS @# RSCHEDULIN POLICY 
. a an 7 einatans 
000000006 EF re p CALLS NRELEASE _RECORD 
01 30$: CMPL H_NP, #1 
iia fe ibe 
000000006 gf 1 F 7D CALLS #1, “RELEASE -RECORD 
R D 31$: MOVL SH. + SUHEN 
gE D 7 MOVL wine 
63 D A MOVL (Sine Ses *SoH_NS 
¢ 1 BRB $ 
01 D1 0 F 32$: CMPL HNP, #1 
Q iF 32 BNEQ $ 
67 9 »D 6 MOVL 9, (LIST_HEAD) 
gp 11 00297 BRB 4$ 
00 BE 39 b0 9 99 33$: MOVE R9, asJH_P 
00000000G_ EF 9} FB 0029F CALLS #1, REWRITE_RECORD 
64 ¢ 2 43 Ag 34$: nove JH_NS, (R4J 
06 A? 85 DO 002AB MOVL R9, 4(LIST_HEAD) 
04 AE DD OO2AF 35S: PUSHL 5 
vmneneben, $1 bb 00989 car 2° 
000000006 ef 01 FB 0028 CALLS #1, REWRITE_RECORD 
A 02 60 003¢¢ MOVL #2, RESULT 
04 002C RET 


; Routine Size: 710 bytes, Routine Base: CODE + 0746 


Be Se Se Be Se Be Se Be Se Se Se Be Ge Ge Be Be Be Ge Ge Ge Se Ge Ge Fe Ge Be Fe Ge Se Be 


sea 


: 1365 94 1 END 
i 1888 3398 ELUDON 


te ay He 2572 coge * 5024 data bytes 
Slesced’ tines ¢:36 on 
Lines/CPU Min: 


1 
Lexemes/CPU-Min: 32333 
Memory Used: 396 pages 
Compi.ation Complete 
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a 2:87 :0 


AX-11 BLli foes 32 v4.0-7 
JOBCTL.SRC SCHEDULER. 8 2:2 


~EXTRN LIBSSIGNAL 


; PSECT SUMMARY 

: Name Bytes Attributes 

; COMMON 50 966 NOVEC, WRI, RD ,NOEXE,NOSHR, LCL, REL, OVR,NOPIC,AL rights 
; CODE 2572 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 

3 conccese Syehelg coccccee Pages Processing 

; File Total Loaded Percent Mapped Time 

: _$255$DUA28:(SYSLIBILIB.L32;1 18619 40 0 1000 00:01.4 

3; Information: 

; Warnings: 

; Errors: 

3 COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$:SCHEDULER/OBJ=O0BJ$:SCHEDULER MSRC$:SCHEDULER/UPDATE=(ENH$: SCHEDULER) 


Page 4 
942 
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SND 
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